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Wordt vervolgd 


Dit boek vormt het logisch vervolg van Junior-computer 1. De 
titel van dit voorwoord suggereert een feuilleton of een strip- 
verhaal. Ten onrechte. Een trilogie stemt beter overeen met de 
feiten. Juníor-computer 2 vormt de afsluiting van de aktiviteiten 
rond de standaard-junior-computer. Zeg maar de afronding van 
basiskennis en basismogelijkheden. En net zoals vele jongeren 
hun basisopleiding voortzetten met een middelbare opleiding, ts 
er straks voor diegenen die verder willen Juníior-computer 3. 
(Overigens: zonder de dwang van een leerplicht!) En wie weet 
wat er daarna allemaa! nog komt. 

Junior-computer 2 begint in hoofdstuk 5 met editen’ en 
assembleren’: hoe om te gaan met de machtige hulpmiddelen 
die de Junior-computer biedt. Hulpmiddelen die het intoetsen 
van gebruikersprogramma'’s sterk vereenvoudigen; die vervelende 
klus neemt de junior-computer voor een groot deel van ons over 
(en de computer ís er toch voor het overnemen van “dom” werk 
van de mens!?). 

Dan, in hoofdstuk 6 het hele Input/Output-gebeuren. Sluit een 
simpele schakeling aan op de poortkonnektor van de junior- 
computer, laad een aantal geheugenplaatsen met een programma 
en er komt geluid, en meer dan dat: muziek uit! Belängrijker 
nog: je leert tegelijk alle mogelijkheden van de PIA, inklusief de 
timer grondig kennen. En veel belangrijker nog is de konstate- 
ring dat de opwekking van geluid of muziek “leuk” is, maar dat 
op dezelfde manier uiterst nuttige stuursignalen kunnen worden 
gemaakt voor de sturing van een proces; inderdaad: de junior- 
computer als proces-computer! 

De hoofdstukken 7 (monitor), 8 (editor) en 9 (assembler) be- 
treffen een gedetailleerde beschrijving van de inhoud van de 
EPROM; van wat er allemaal bij komt kijken om de junior- 
computer zijn werk goed te laten doen. Deze hoofdstukken zijn 
bepaâld niet alleen maar “leuk om te weten’. Er zit meer in: 
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uiterst nuttige subroutines, waarmee de gebruiker in zijn pro- 
gramma veel werk kan uitbesteden. Maar dat is nog niet alles: 
voor de gebruiker is kennis van ‘hoe ze het hebben gedaan’’, 
byte voor byte, een uitstekend uitgangspunt voor de ontwikke- 
ling van “eigen” software. 

En het einddoel van het junior-computerprojekt móét toch dat 
“eigen” zijn: twee of drie boeken mogen dan een aardig steuntje 
in de rug betekenen voor de gebruiker, maar hij moet het uit- 
eindelijk zelf doen. Als u binnenkort volop met de junior- 
computer werkt, terwijl deze boeken hooguit nog als naslagwerk 
worden gebruikt, hebben we precies bereikt wat we willen! 


A. Nachtmann 
G.H. Nachbar 


Dit boek ís door mensen gemaakt. De auteurs stellen schriftelijke 


op- of aanmerkingen van de lezers over de inhoud op prijs. 
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Editen en assembleren 


snel en foutloos programma’s intoetsen 


Het intoetsen van een gebruikersprogramma, zoals beschreven in 
boek 1 is niet bepaald het einde: erg veel voorbereidende werk- 
zaamheden op papier en mogelijk veel korrektiewerk bij een 
intoetsfout. Gelukkig is er een betere metode om programma’s 
aan de junior-computer op te geven: met behulp van het editor- 
programma in de EPROM. Nu geen intoetsen meer van een 
programma zoals tot nu toe gebruikelijk, maar het editen, redi- 
geren van een programma, instruktie voor instruktie. 

Na het via de editor ingeven van een programma moet het even- 
eens in de EPROM aanwezige assemblerprogramma worden 
gestart. Is het ingegeven programma als gevolg daarvan geassem- 
bleerd, dan staat het klaar voor gebruik. 

Wat zijn nu de voordelen van dit alternatieve intoetsen? Veel 
minder voorbereidend papterwerk en veel minder korrektie- 
werk. Dus het gaat allemaal sneller, kost minder tijd. 

Dus is er meer tijd voor het bedenken van leuke gebruikers- 
programma's. 

Met andere woorden: dit hoofdstuk is een ‘must’. 


Was de titel van hoofdstuk 4 in boek 1 “Programmeren zonder poespas”, 
dit hoofdstuk zou net zo goed ''Programmeren met poespas’ kunnen 
heten. Want het mag dan zo zijn dat editen een vereenvoudiging van het 
opgeven van een gebruikersprogramma betekent, er komen wel wat meer 
verschillende funktietoetsen aan te pas dan de AD, DA, + en GO, waarmee 
men in de meeste gevallen in boek 1 kon volstaan. En bovendien, moeten 
we bedenken, is voor die “service'’ aan de gebruiker wel ongeveer twee- 
derde van de inhoud van de EPROM gereserveerd in de vorm van een 
editor-programma (‘de editor’) en een assemblerprogramma (“de assem- 
bler””). 


Editen 


Goed, editen maakt de zaak er eenvoudiger op. Wat valt er zo al te vereen- 
voudigen? Is de ‘oude’ manier van intoetsen dan zo gekompliceerd? Die 
“oude’” manier van boek 1 is prima voor kteine programma's van hooguit 
enige tientallen bytes. Is het programma echter enige honderden bytes 
lang, dan is de kans op problemen als gevolg van intoetsfouten levensgroot: 
wat te denken van een vergeten ingetoetst byte vrijwel aan het begin van 
een programma van driehonderd bytes! En de wet van behoud van ellende 
van de heer Murphy zegt dat dat âltijd aan het begin gebeurt! Er zit, 
of juister: zat niets anders op dan overtoetsen. De oplossing met een 
wegomlegging via een BRK is ook maar een lapmiddel. Okay, je kunt 
een overbodig byte wegwerken door er een EA (NOP-instruktie) voor in 
de plaats te zetten, maar wât te denken van de konstatering dat het laatste 
deel van een lang programma ingetoetst wordt op niet aangesloten of 
verboden geheugenplaatsen omdat er elders onbenutte “spaties” (“lege” 
geheugenplaatsen) zijn, dus omdat het geheugen niet ekonomisch is 
gebruikt! ? 

Vergeét al die problemen maar bij het gebruik van de editor. Instrukties 
kunnen ermee naar believen geheel of gedeeltelijk worden gewijzigd, 
toegevoegd of weggelaten. Er wordt ekonomisch omgesprongen met 
geheugenplaatsen (zoveel plaatsen als nodig zijn, maar wel aaneengesloten) 
en er ontstaat een foutmelding bij een verkeerde bediening van de toetsen. 


Editen en assembleren 


Alleen al om deze redenen is de editor een enorme hutp voor de gebruiker; 
hij neemt hem een hoop “korvee"-werk af. Maar dat is nog lang niet altes. 
In samenwerking met de editor is de assemb{er in staat om de doeladressen 
van alle voorwaardelijke en onvoorwaardelijke spronginstrukties (op 
JMP-IND na) te berekenen! En dat was nou juist een hoop voorbereidend 
werk op papier, zoals we van hoofdstuk 4 nog wel weten. Weliswaar was 
het niet nodig om zelf het springbyte van een voorwaardelijke sprong- 
instruktie te berekenen omdat daar een offset-routine voor beschikbaar is 
(startadres 1FD5), maar het uitzoeken van de operand (het doeladres) van 
een JSR (20) of een JMP (4C) kan toch een hoop uitzoekwerk op papier 
betekenen, zeker als het gaat om een optimaal gebruik van geheugen- 
ruimte. In ieder geval is het fijn om te weten dat ook dat werk ons voort- 
aan bespaard blijft. | 
Voordat we verder wat meer over de assembler en het assembleren gaan 
vertellen even een belangrijke opmerking. De assembler vergroot nog 
verder het gemak voor de gebruiker, dat door de edit-mogelijkheid al aan- 
wezig was. De editor is ook zelfstandig te gebruiken, dus zonder de extra 
mogelijkheden die de assembter biedt. Doen we dat, dan moeten de 
spronginstrukties tijdens het editen op de gebruikelijke manier worden 
ingegeven, in tegenstelling tot de speciale, nog uitgebreid te bespreken 
manier die nodig is bij het gebruik van de assembler. Dat betekent dat de 
operanden, dus in dit geval de doeladressen exakt bekend moeten zijn, 
en bovendien dat die doeladressen (bijvoorbeeld het doeladres van een 
JSR) zijn gebaseerd op een gebruikersprogramma, waarvan de diverse 
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onderdelen (denk aan subroutines) zonder 'geheugenspaties’” op elkaar 
aansluiten (zie ook hoofdstuk 4). 

Het is maar dat u het weet, hoewel het voor de hand ligt om een stuk 
gereedschap dat je al in huis hebt (in de EPROM!) ook daadwerkelijk te 
gebruiken, teneinde beter te kunnen werken. 


Assembleren 


Eerst even dit: de editor neemt ons veel werk uit handen en de editor 
plus assembler nog meer. Het maken van een gedetailleerd stroomdiagram 
blijft echter de taak van de gebruiker en het bijbehorende papierwerk (en 
denkwerk!) is niet uit te besteden aan de computer. In alle gedetailleerde 
stroomdiagrammen, zoals we die in boek 1 zijn tegengekomen treffen we 
op een aantal punten van een programma fabels aan, een soort naam- 
bordjes die betrekking hebben op het programmadeel dat na het label 
volgt. En net zoals veel huizen (adressen) van een naambordje zijn voor- 
zien is elk label gekoppeld aan een adres, namelijk aan het adres waarop 
de opcode van de eerste instruktie van het betreffende programmadeel 
staat. Die labels bevatten tekst in hoofdletters. Vanwege de koppeling 
met een adres is een label ook op te vatten als een zogenaamd symbolisch 
adres, als een alternatief voor het uit vier hexadecimale cijfers bestaande 
feitelijke adres. 

Nu is de grote gedachte achter het assembleren deze dat bij (on)voor- 
waardelijke spronginstrukties niet gebruik wordt gemaakt van het feite- 
lijke adres, maar van het symbolische adres. Met andere woorden: als 
JAN het label is van adres @2AB en er moet (eventueel) vanuit een punt, 
verderop in het programma worden gesprongen naar het programmadeel 
dat begint bij adres Q2AB met label JAN, dat dan niet wordt "gezegd: 
JMP-{2AB, maar: 

JMP-JAN. 

Schitterend, zult u zeggen, hoe toets ik JAN in met mijn hexadecimale 
toetsenbordje? Labels met de letters A ...F kan ik me nog voorstellen, 
maar voor labels, waarvan de tekst de inhoud van het bijbehorende pro- 
grammadeel weerspiegelt heb je toch gauw een echt ASCII -toetsenbord 
nodig! ? 

Een begrijpelijke doch gelukkig onjuiste reaktie. Er wordt namelijk niet 
gewerkt met JAN, PIET of hoe die symbolische adressen ook mogen 
heten, maar met hexadecimale labels, bestaande uit vervangende hexa- 
decimale getallen van twee cijfers, die men binnen zekere grenzen vrij kan 
kiezen. En met hexadecimale getallen (het /abelnummer) kun je ook elk 
beestje een naampje geven. Zoals al eerder opgemerkt kan de junior- 
computer met behulp van de assembler aan de hand van de opgegeven 
hexadecimale labels zelf de doeladressen van spronginstrukties berekenen. 


Editen (en assembleren) van A tot Z 


Het editen van een gebruikersprogramma is een aktiviteit van de gebruiker 
met de hulp van de junior-computer (=de editor). Het aansluitende 
assembleren van het programma, als voorbereiding tot de uitvoering ervan 
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is bijna uitsluitend een zaak voor de computer. Het enige wat de gebruiker 

hoeft te doen is het achtereenvolgens indrukken van de volgende toetsen: 
RST AD 1 F 5 1 GO 

waardoor naar het startadres van de assembler is gesprongen. 

Voordat het editen in detail gaat worden besproken bekijken we eerst een 

aantal zaken die verband houden met het assembleren. 


De opbouw van een hexadecimaal label 


Bij gebruik van de editor zonder de assembler toe te passen, moeten de 
spronginstrukties op de gebruikelijke manier worden opgegeven, dus een 
byte voor de opcode en één (voorwaardelijke) of twee (onvoorwaardelijke 
spronginstrukties) bytes voor de operand. Passen we de assembler toe, 
dan moet dat anders gebeuren: op de een of andere manier moet het 
labelnummer er in verwerkt zijn. Bovendien moet het tabel bij het editen 
op het juiste moment (d.w.z. op de juiste plaats) worden ingegeven. Al 
die “afwijkingen” voor het gebruik van de assembler zullen we nu gaan 
bespreken. 


FF: de label-indikator 


De editor moet een label-regel kunnen onderscheiden van een regel die 
een instruktie (opcode plus operand) bevat. En aangezien het eerste byte 
van een instruktie-regel de opcode bevat moet het eerste byte van een 
label-regel uit een byte (twee hexadecimale cijfers) bestaan dat niet over- 
eenkomt met de opcode van welke instruktie dan ook. Nu zijn slechts 
151 van de 256 mogelijkheden met twee hexadecimale cijfers voor op- 
codes benut (zie het Aanhangsel 1 van boek 1), dus keuze genoeg voor 
een label-indikator. Er is gekozen voor FF als pseudo-opcode voor een 
label, omdat het zo lekker handig is te toetsen. 
Zoals al opgemerkt: het labeinummer bestaat uit twee hexadecimale 
cijfers; dat betekent dat er in principe 256 verschillende labels mogelijk 
zijn (OD... FF). 
Een label ziet er als volgt uit: 
FF XX OO 

waarbij FF de label-indikator is, 

XX het labelnummer, en 

GP de zogenaamde labelbegrenzer 
Een label is dus drie bytes lang. 
Een voorbeeld. De drie bytes van het label FF 15 B® moeten bij het editen 
worden ingegeven vlak voor de een, twee of drie bytes van de eerste 
instruktie van het programmadeel met label! 15. 
Bij het editen moet het label korrekt worden ingetoetst. Dus alle drie 
bytes: zes toetsen. Fout is: 


toetsen display 
FF 21 FF 21 XX labelbegrenzer ontbreekt 
FF 560-PF FF 56 FF foutieve labelbegrenzer 
FE FF 41 9D inhet display verschijnt weliswaar de 


juiste labelbegrenzer, maar deze is niet 
ingetoetst en dat moet wèl gebeuren: 
pas na het intoetsen van alle drie bytes 
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is de aktie wat de computer betreft 
afgerond, d.w.z. legt de instruktie uit 
als “klaar”. 


Editen van een JSR 


Bij het editen en vervolgens assembleren van de instruktie JSR moeten we 
als volgt te werk gaan: 
20 XX DP 

Die 2d komt ons bekend voor: de opcode van JSR-. Het tabelnummer 
is aangegeven met XX, waarbij XX kan variëren van Ô® tot en met FF. De 
twee nullen aan het eind vormen een begrenzer. 
We zien dat de instruktie ook nu drie bytes lang is. Een voorbeeld: 
20 14 ÓP betekent: spring naar de subroutine, aan het startadres waarvan 
we het labelnummer 14 hebben toegekend; dus spring naar de subroutine 
die op label 14 begint. 
Ook hier geldt dat alle drie bytes moeten worden ingetoetst. Fout is: « 

toetsen display 


2011 28 11 XX begrenzer ontbreekt 
20719F 20 71 9F inkorrekte begrenzer 
20 20 28 0Ó in het display verschijnt weliswaar 


de juiste begrenzer, maar deze is niet 
ingetoetst en dat moet wel gebeuren. 


Editen van een JMP 


Het verhaal is identiek aan JSR, zij het met een andere opcode: 

4C XX DO 
waarbij 4C de opcode is van JMP- en XX het labelnummer, horend bij het 
doeladres van de absolute sprong. 
Opmerking. De instruktie JMP IND met opcode 6C kan niet worden 
geassembleerd, maar uiteraard wel worden ge-edit. Het sprongadres moet 
dan bekend zijn. 
Uit het voorgaande is de volgende regel op te maken: 


Vergeet bij het editen van JSR- en JMP-instrukties nooit en te nimmer het 
begrenzerbyte DÛ in te toetsen! 


Editen van voorwaardelijke spronginstrukties 


De acht voorwaardelijke spronginstrukties (branch-instrukties) BPL, BMI, 
BEO, BNE, BCC, BCS, BVC en BVS moeten bij het editen in kombinatie 
met het assembleren als volgt worden opgegeven: 

YY XX 
waarbij YY de opcode is en XX het fabelnummer. Deze spronginstrukties 
worden dus níet afgesloten met het begrenzerbyte ÓÓ; net als in het 
“gewone” geval is dit type instruktie hier twee bytes lang. Een paar 
voorbeelden: 
18 34 spring eventueel naar label nummer 34 (BPL) 
3 F6 spring eventueel naar label nummer F6 (BMI) 
F@ 19 spring eventueel naar label nummer 19 (BEO) 
Dg 56 spring eventueel naar-label nummer 56 (BNE) 


99 9D spring eventueel naar label nummer 9D (BCC) 

BO 21 spring eventueel naar label nummer 21 (BCS) 

5 88 spring eventueel naar label nummer 88 (BVC) 

7 AB spring eventueel naar label nummer AB (BVS) 

De informatie van de labelnummers is voldoende voor de assembler om de 
bijbehorende offset te berekenen. 


Nog een paar zaken over labels 


Het is erg belangrijk dat de gebruiker erop let dat labelnummers eenduidig 
en ondubbelzinnig zijn vastgelegd. Dat wil zeggen dat een bepaald label- 
nummer slechts één keer mag worden gebruikt, in één bepaalde toepassing. 
De labelnummers mogen in willekeurige volgorde worden gebruikt. U mag 
kris-kras kiezen uit een van de mogelijke kombinaties 00... FF. 
Bij het gebruik van voorwaardelijke spronginstrukties moet erop worden 
gelet dat het maximale offset-bereik (128 stappen terug, 127 stappen 
vooruit) niet wordt overschreden. Een "foutsprong” als gevolg daarvan 
(de berekende offset is dan namelijk fout) geeft geen foutmelding! 
Het kan voorkomen dat van spronginstrukties van het type JSR- en JMP- 
het sprongadres bekend ís. Denk aan een door de gebruiker via zijn pro- 
gramma aangeroepen monitor-subroutine, bijvoorbeeld GETBYT, met 
adres 1D6F. In zo’n geval hoeft de instruktie niet te worden geassembleerd 
en kan de instruktie op de normale manier worden ingegeven: 
JSR-GETBYT = 20 6F 1D 
Et 4 
opcode ADL ADH 
Kun je nu, als zo’n geval zich voordoet, even goed assembleren? Het ant- 
woord is: ja, dat kan. Assembleren vindt namelijk alleen dan plaats als aan 
de spronginstruktie een labelnummer is toegevoegd, dat eenduidig is 
vastgelegd. Het bovenstaande voorbeeld van JSR-GETBYT leidt niet tot 
assembleren indien het rechter adresbyte ADL = 6F, dat op de plaats van 
een labelnummer staat, niet als label wordt gebruikt, dus als tijdens het 
assembleren geen pseudo-instruktie FF 6F 99 (= label) wordt gevonden. 
We gaan hier overigens voor het gemak voorbij aan het feit dat het be- 
grenzerbyte 1D is, en dat is ongelijk aan GO. 


Inmiddels zijn zo'n beetje alle assembler-aspekten van het editen behan- 
deld en zijn we toe aan het algemene verhaal over het editen. 


Het editen van instrukties 


Gaat het konventionele intoetsen van een gebruikersprogramma byte voor 
byte, de editor van de junior-computer doet dat instruktie voor instruktie. 
Na het opstarten van de editor (waarover later meer) interpreteert de 
computer het eerste byte (aanwezig na het indrukken van twee numerieke 
toetsen) als de opcode van de eerste instruktie van het gebruikersprogram- 
ma. De editor zoekt de opcode op in een lookup-table met behulp van 
een subroutine die sterk lijkt op LENAGCC van hoofdstuk 4, en vindt daar 
ook de lengte van de instruktie. Bij elke opcode hoort een instruktie met 
een bepaalde lengte en de junior-computer weet, hoeveel bytes en dus 
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numerieke toetsen er nog moeten komen voordat de (instruktie-)regel vol 
is en voordat de instruktie als geheel het werkgeheugen in gaat. 

Een volle regel ís niet hetzelfde als een ‘vol’ display. Is een instruktie 
namelijk korter dan drie bytes, dan blijven er displays gedoofd. Voor een 
1-byte-instruktie blijven de rechter vier displays gedoofd en voor een 
twee-byte-instruktie de rechter twee displays. 

De opbouw van een instruktie is van links naar rechts op het display; dit 
loopt tijdens het toetsen van de operand-bytes van links naar rechts vol 
tot de maximate display-vulling die hoort bij de lengte van de instruktie. 
Een paar voorbeelden: 


toetsen: display: opmerkingen: 
A97 F A9 7F LDA #7F 
AD 821 A AD 82 1A LDA-1A82 
A 5E 6 A5 E6 LDAZ-E6 
A1 FA Al FA LDA-{FA,X) 
B 1 F A B1 FA LDA-(FA), Y 
BD OOGO 2 BD G@ d2 LDA-G209, X 
B 9 D 122 B9 D1 22 LDA-22D1, Y 
B 5 3 1 B5 31 LDAZ-31, X 
d A DA ASL-A 
enzovoorts. 


U ziet dat het display is gegroepeerd in blokjes van twee; zo houden we de 
bytes beter uit elkaar. U ziet ook het “rafelige’’ karakter van het display: 
waar vroeger X-en stonden staat nu niets: de leegte, behorend bij een 
gedeeltelijk gedoofd display (d.w.z. twee of vier van de zes displays ge- 
doofd). 

De linker twee displays vormen het opcode-veld, de overige vier het 
operandveld. U ziet aan het voorbeeld trouwens ook dat het niet mogelijk 
is om het display tijdens het intoetsen van een 1- of 2-byte-instruktie 
geheel te vullen door het maar flink intoetsen van numerieke data; zodra 
de instruktieregel vol is wordt aan een nieuwe regel begonnen. 


Geheugenbereik 


Vanaf een zeker, door de gebruiker op te geven beginadres wordt het 
werkgeheugen tijdens het editen met één, twee of drie bytes gevuld, 
telkens nadat een instruktie is ingetoetst. De editor werkt met een aaneen- 
gestoten geheugenbereik. Hij moet echter wel weten wat het beginadres is. 
Dit komt hij aan de weet door op de geheugenplaatsen @9E2 en ODE3 te 
gaan kijken wat de gebruiker daar in heeft geschreven. Daar ligt de begin- 
adreswijzer (BEGADH, BEGADL), die wijst op de geheugenplaats, waar de 
opcode van de eerste instruktie van het gebruikersprogramma in terecht 
moet komen: 

BEGADL = GGE2 

BEGADH = G9E3 
De gebruiker moet echter nog meer vooraf opgeven. Er is ook een eind- 
adreswijzer (ENDADH, ENDADL), die wijst op de laatst beschikbare 
geheugenplaats van een aaneengesloten geheugenbereik, dat begint bij 
(BEGADH, BEGADL). Het eindadres moet dus altijd hoger zijn dan het 
beginadres. 
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Er zijn een heleboel redenen voor het moeten specificeren van een eind- 
adres. Het heeft bijvoorbeeld geen enkele zin om programma's in te 
toetsen op geheugenplaatsen die niet beschikbaar zijn. Bij de standaard- 
junior-computer zijn dat alle geheugenplaatsen van de pagina's Q4... 19, 
1B en 20...FF. En zonder ENDAD zou je daar misschien pas achter 
komen bij de (mislukte)uitvoering van het gebruikersprogramma. Daar- 
naast zijn er verboden geheugenplaatsen, met name in de pagina’s ÒÛ 
(monitor-RAM) en @1 (stack). Er is nog een belangrijke reden, en die geldt 
ook voor de beginadreswijzer. Door een korrekte instelling van begin- en 
einadreswijzer kan worden voorkomen dat al eerder ingetoetste gebrui- 
kersprogramma’s worden overschreven en daardoor vernietigd. 
De gebruiker specificeert ENDAD door het laden van de geheugenplaatsen 
DOE4 en DPES, enwel als volgt: 

ENDADL = 9OE4 

ENDADH = G9E5 
Het grootste aaneengesloten geheugenbereik van de standaard-junior-com- 
puter bestaat uit de plaatsen 0200... @3FF. Dat zijn 512 bytes en dat is 
meer dan genoeg voor het leeuwedeel van de gebruikersprogramma'’s. 
Willen we na het editen nog assembleren, dan zijn tijdens het editen 
voorbereidingen getroffen. Ondermeer zijn dan pseudo-instrukties voor de 
labels tijdetijk in het gebruikersprogramma opgenomen. Na het assembleren 
zijn deze labels verdwenen. Het kan voorkomen dat gebruikersprogram- 
ma's zonder de labels wel, maar met de labels niet meer passen in het 
maximaal beschikbare geheugenbereik. Er kan dan niet van de assem- 
bleermogelijkheid gebruik worden gemaakt. 
Bij grotere programma's van een paarhonderd bytes lang (slim als men 
is neemt men dan het grootste aaneengesloten geheugenbereik: 
9200... O3FF), die ook nog moeten worden geassembleerd, moet de 
gebruiker terdege rekening houden met de feitelijke, voor het gebruikers- 
programma beschikbare geheugenruimte. Die is namelijk kleiner dan het 
geheugenbereik. 
Kijk maar: Voor elk label zijn (weliswaar tijdelijk) drie geheugenplaatsen 
nodig. En verder moet één plaats worden gereserveerd voor het zoge- 
naamde “End Of File character” (EOF = 77), dat een soort afsluitend 
byte is (van belang voor het goed funktioneren van de assembler), dat volgt 
op de ge-edite instruktie met het hoogste adres (dus het laagst in het ge- 
heugen als we van ‘boven’ naar “beneden” geheugenplaatsen een hoger 
adres geven). 
En dan moeten minimaal zes plaatsen vrij blijven voor de assembler. 
We komen dan tot het volgende. Er moet gelden: 
nl +3*n2+7S<n3, met 
n1: aantal bytes van het gebruikersprogramma 
n2: aantal labels 
n3: aantal plaatsen van het geheugenbereik 
Heeft de gebruiker het akelige vermoeden dat: 

nl +3*n2+7?>n3 

dreigt te worden, dan moet hij nog eens goed nagaan of zijn programma 
niet honderd bytes korter kan, of — en dat is toekomstmuziek — denken 
aan geheugenuitbreiding in de vorm van extern aangesloten extra RAM. 
Bij gebruik van het maximaal beschikbare aaneengesloten geheugenbereik 
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(wat voor de hand ligt, zeker aan het begin van een computer-sessie) 
moeten BEGAD en ENDAD als volgt worden ingetoetst: 


(RST) 

AD 9 GE 2 

DA 0 @ ADL van BEGAD 

+ Ö 2 ADH van BEGAD 

+ FF ADL van ENDAD 

+ Ó 3 ADH van ENDAD 

Het geheugenbereik ziet er dan uit als in figuur 6. 


Het starten van de editor 


Is het geheugenbereik vastgelegd door het intoetsen van BEGAD en 
ENDAD, dan moet de editor = het editorprogramma worden gestart. 
De toetsenceremonie luidt als volgt: 

AD 1 CB 5 

GO 
en op het display zien we dan: 

77 && && (N.B.&= display gedoofd) 
ten teke dat de editor klaar staat voor gebruik. O ja, maar dat had u al 
door: 1CB5 is het startadres van de editor. 


Editor-toetsen 


Eerst iets over het begrip editen. De computerwereld is vergeven van de 
engelse en amerikaanse kreten en “editen’' is daar één van. Er is een goed 
nederlands woord voor: “redigeren” en dat is het wijzigen van al aanwezige 
tekst. Maar in de computer-betekenis van het woord is editen meer: niet 
alleen het wijzigen van het al bestaande, maar ook het ervoor zorgen dat 
er iets bestaat. Dus niet alleen het korrigeren van een al ingetoetst pro- 
gramma, maar ook het intoetsen ervan. 

Om goed te kunnen editen hebben we een aantal edit-funktietoetsen nodig. 
De junior-computer heeft er vijf: | 


INSERT (dezelfde toets als AD), 
INPUT (dezelfde toets als GO), 
DELETE (dezelfde toets als DA), 
SEARCH (dezelfde toets als PC) en 
SKIP (dezelfde toets als +). 


De tussen haakjes geplaatste toetsfunkties zijn tijdens het editen niet 
operationeel (en dat hoeft ook niet). Er volgt nu een beschrijving van de 
vijf edit-toetsen, hun funktie en hun mogelijkheden. 


Na het indrukken van de INSERT -toets kan een nieuwe instruktie worden 
ingetoetst, die direkt vòòr de instruktie van het display in het geheugen 
komt te staan. Zodra er een pseudo-opcode 77 is te zien, moet de INSERT- 
toets worden ingedrukt. Dat is bijvoorbeeld het geval na het opstarten van 
de editor. 


INPUT 


Na het indrukken van de INPUT-toets kan een nieuwe instruktie worden 
ingetoetst, die in het geheugen direkt na de op het display staande instruk- 
tie komt te staan. Zowel de INSERT- als de INPUT-toets betreft een 
toevoeging van instrukties. Ze kunnen afwisselend worden gebruikt; de 
laatst ingedrukte van de twee is effektief. 

Beide toetsfunkties leiden pas tot aktie (= in het geheugen zetten) van de 
junior-computer als een aantal bytes, in overeenstemming met de instruk- 
tielengte is ingetoetst. Ontdekt men dus tijdens het intoetsen van een 
instruktie een toetsfout, dan kan door het opnieuw intoetsen van INSERT 
of INPUT de instruktie opnieuw, en nu hopelijk goed, worden ingetoetst: 
de nieuw ingetoetste instruktie komt direkt vòòr (INSERT) of na (INPUT) 
de recente gedisplayde — dat was de te korrigeren — instruktie in het 
geheugen. 


Indrukken van DELETE zorgt ervoor dat de op het display staande 
instruktie uit het geheugen van de junior-computer wordt verwijderd. Het 
“gat” in het geheugen dat daardoor ontstaat wordt door het verplaatsen 
van alle instrukties na de verwijderde opgevuld. Na de uitvoering van een 
DELETE toont het display dan ook de instruktie die volgt na het ver- 
wijderde exemplaar. 


“Die vraag zoeken we op”, denkt men onwillekeurig bij bestudering van 
deze toets. Er ís een willekeurig patroon van twee bytes mee op te sporen. 
Toetst men bijvoorbeeld: 

SEARCH FF 11 

dan zoekt de junior-computer het tabel met nummer 11 op in het geheu- 
gen en geeft dit weer op het display. Je kunt er ook een instruktie mee 
opzoeken: 

SEARCH A9 g @ 

bijvoorbeeld zoekt de eerste (en mogelijk de enige) LDA #0@ op in het 
geheugen. Komt deze instruktie "later'’, op een hoger adres in het geheu- 
gen, dus in het gebruikersprogramma nog één of meerdere keren voor, dan 
is (zijn) deze niet met een SEARCH op te sporen. 

Het indrukken van SEARCH, gevolgd door vier ingedrukte numerieke 
toetsen, beïnvloedt de inhoud van de geheugenplaatsen OOE6 en GGE7, 
waarin de stand van de displaywijzer (pointer) CURAD is vastgelegd: 
CURADL = GHEG 

CURADH = 9OE7 | 

De displaywijzer staat gericht of gaat worden gericht (SEARCH) op het 
adres waarop de opcode staat van de gedisplayde of de-te displayen in- 
struktie. Na het intoetsen van: 

SEARCH XX XX 

(X: numerieke toets) 

start de displaywijzer op het beginadres BEGAD van het geheugenbereik 
en springt net zo lang naar een nieuwe opcode (dus niet byte voor byte) 
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totdat hij twee bytes tegenkomt (waarvan de eerste dus een opcode is), die 
gelijk zijn aan de ingetoetste bytes. 


indrukken van de SKIP-toets zet de instruktie, volgend op de op het 
display weergegeven instruktie op het display. Door het herhaald indruk- 
ken van deze toets is het mogelijk om het ge-edite (ingetoetste) programma 
instruktie voor instruktie te bekijken en te kontroleren op toetsfouten. 

De SKIP-funktie is weliswaar zelfstandig te gebruiken, getuige de SKIP- 
toets, maar maakt ook deel uit van de INPUT -funktie. Deze laatste is een 
kombinatie van SKIP en INSERT: 


SKIP INSERT XX is hetzelfde als INPUT XX 
SKIP INSERT XXXX is hetzelfde als INPUT XXXX 
SKIP INSERT XXXXXX is hetzelfde als INPUT XXXXXX 


Warme en koude start van de editor 


Er is al verteld hoe de editor moet worden gestart. Het startadres 1CB5 
betreft de zogenaamde cold start entry van de editor, de koude start van 
de editor. | 

De koude start moet minstens één keer tijdens een junior-computersessie 
bij het begin van het editen plaatsvinden. Na een koude start worden enige 
geheugenplaatsen in pagina Gd geladen aan de hand van de vooraf door de 
gebruiker opgegeven beginadreswijzer en eindadreswijzer in het kader van 
het vastleggen van het geheugenbereik. 

Er is ook nog een warme start van de editor mogelijk (warm start entry). 
Het nut daarvan is dat een deel van het editorprogramma kan worden 
overgeslagen in het geval dat bij een terugkeer naar de editor het door de 
gebruiker opgegeven geheugenbereik niet gewijzigd hoeft te worden. Er is 
net gesproken over de terugkeer naar de editor; dat betekent dat op een 
vroeger tijdstip de editor is verlaten, bijvoorbeeld nadat het editen klaar 
was. Hoe gaat dat verlaten eigenlijk in zijn werk? Heel eenvoudig: door het 
indrukken van toets RST. Dat heeft een sprong naar het monitorprogram- 
ma tot gevolg, waardoor de ‘ouderwetse’ toetsfunkties AD, DA, +, GO en 
PC weer operationeel zijn. Een terugkeer naar de editor via een warme 
start, dus bij een ongewijzigd geheugenbereik, gaat als volgt in zijn werk: 


(RST) 
AD 1 CCA 
GO 


Het startadres van de editor voor een warme start is 1CCA. 


Dit was dan de teorie. Nu de praktijk van het editen. 
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Een praktijkvoorbeeld 

“The proof of the pudding is the eating'’, zeggen de Engelsen. Met andere 
woorden: de behandelde toetsfunkties en -recepten kunnen het beste 
worden getoetst aan de hand van een praktijkvoorbeeld. 

Het is niet de bedoeling om het voorbeeldprogramma uitentreuren te 
behandelen; in dit hoofdstuk ligt de nadruk op het editen, dus op het 
intoetsen van een gebruikersprogramma en het indien nodig aanbrengen 
van korrekties daarin, op een later tijdstip. Het gaat hier dus niet om het 
programma zelf. Belangrijk is dat het gedetailleerde stroomdiagram van het 
gebruikersprogramma aanwezig is. In dat stroomdiagram moeten bij 
gebruik van de assembler de labels zijn aangegeven: FF XX 0D. Ook elk 
punt, van waaruit naar een label (eventueel) gaat worden gesprongen moet 
duidelijk zijn aangegeven: een omcirkeld hexadecimaal getal van twee 
cijfers, dus een labelnummer. 

Verder noteert men bij elke instruktie aan de linkerkant van de rechthoek 
of testruit (met daarin de instruktie-omschrijving) de opcode van de 
instruktie (die men al uit het hoofd kent of opzoekt in Aanhangsel 2 van 
boek 1). En dan moet ook in geval van te laden of te lossen geheugen- 
plaatsen aan de rechterkant adresinformatie worden opgegeven; dat geldt 
ook voor niet te assembleren spronginstrukties waarvan het doeladres 


FF 19 40 










STA — POINTL 
STA — POINTH 


F9 
FA display <— dd 40 40 


FB 


FF 11 40 


ID6F 


Ë GETBYT Ï 


2 num. toetsen 
ingedrukt? 
ja 


en JO ws 


Figuur 1. Het gedetailleerde stroomdiagram van het programma DISPL. 
Dit programma en de bijbehorende subroutines van de figuren 2, 3 en 4 dienen als 
programmavoorbeeld voor het gebruik van de editor. 











Ee zet ze in de buffer van 
D7 Dib en D#6 
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bekend is. Bij immediate-instrukties staat de operand-data in de recht- 
hoeken. 


Het voorbeeldprogramma 


Het gedetailleerde stroomdiagram van het voorbeeldprogramma is te zien 
in de figuren 1...4. In figuur 1 de hoofdroutine DISPL. Van daar uit 
springt men op een gegeven moment naar de editor-subroutine GETBYT, 
met startadres 1D6F, en naar de subroutine HEXDEC, waarvan het 
gedetailleerde stroomdiagram in figuur 2 staat. Vanuit deze laatste sub- 
routine springt men een keer naar de subroutine COMNUM van figuur 3, 
die op zijn beurt weer een beroep doet op de subroutine SUBTRA van 
figuur 4: een leuk voorbeeld van subroutine-nesting. 

Wat doet het programma eigenlijk? Het zorgt ervoor dat een hexadecimaal 
ingetoetst achtbits binair getal wordt omgezet in het bijbehorende decimale 
getal. De rechter twee displays geven het ingetoetste hexadecimale getal 


FF 12 84 








20 


en 





85 






84 






24 






FF 13 40 






GA 
CE 
Dg 


CO 


STA — POINTL 
STY —POINTH 










@5 FA 


85 FA 






84 FB 





60 
80915 -5 -2 


Figuur 2. De subroutine HEXDEC van DISPL (figuur 1). 
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FF 14 60 


LDY #44 
STY — HEXH Ds 


SUBTRA (5) 


LDA — HEXL D7 
ADC # GA 


80915 -5-3 





Figuur 3. De subroutine COMNUM, waarnaar vanuit HEXDEC (figuur 2) wordt 


gesprongen. 


LDA — HEXL 
STA — HEXL 


SBC # 49 


JMP — SUBTRA 


FF 15 64 












D7 


D7 


D8 





FF 16 04 


80915-5-4 


Figuur 4. De subroutine SUBTRA, waarnaar vanuit COMNUM (figuur 3) wordt 
gesprongen. 
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HEXH = D8 HEXL = D7 Y-Register 


POINTH = FB POINTL = FA INH = F9 


Nae en” 


decimale getal hexadecimale getal 
80915-5-5 


Figuur 5. Een aantal geheugenplaatsen in pagina GQ, voor zover betrokken bij het 
programmeren volgens de figuren 1 ...4. 


BEGADH BEGADL 












6249 = startadres DISPL 
g201 
4202 
9203 
4204 
d285 


ENDADH ENDADL | 


Ages 9eE4 


80915 -5 -6 


Figuur 6. Het geheugenbereik, zoals dat voor het starten van de editor is vastgelegd 
met de beginadreswijzer BEGAD en de eindadreswijzer ENDAD. 


weer, de linker vier het overeenkomende decimale getal. Het opnieuw 
intoetsen van twee numerieke toetsen levert een nieuw hexadecimaal en 
dus decimaal getal op, enzovoorts. 

De gegevens van de diverse voor dit programma van belang zijnde buffers 
staan in figuur 5. Naast de drie displaybuffers POINTH, POINTL en INH, 
oude bekenden van boek 1, is er gebruik gemaakt van de RAM-plaatsen 
0OD7 en AÛD8 voor het bewaren van het ingetoetste hexadecimale getal. 
Even een adreslijstje: 


POINTH = OFB HEXL =@0D7 
POINTL =GOFA HEXH =GdD8 
INH = GOF9 GETBYT = 1D6F 
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Uit de summiere beschrijving van het programma is in ieder geval duidelijk 
geworden wat er gebeurt als het programma goed ge-edit, ingetoetst is. 
Laten we de programma’s (op basis van de figuren 1 ... 4) maar eens gaan 
intoetsen. 
Eerst moet het geheugenbereik worden vastgelegd, en daarmee het start- 
adres van het gebruikersprogramma (dat is namelijk gelijk aan BEGAD). 
We kiezen voor het maximale geheugenbereik van de junior-computer: van 
d20P tot en met Ö3FF (zie ook figuur 6). 

Daar gaat-ie dan: 


toetsen 

RST 

AD G 9 
DA Ö 0 
+ 92 
+ FF 
+ d 3 
AD 1 C 
GO 

INSERT FF 
INPUT Ag 
INPUT 85 
INPUT 85 
INPUT 85 
INPUT FFP 
INPUT 20 
INPUT 19 
INPUT 85 
INPUT 85 
INPUT 85 
INPUT 20 
INPUT 4 C 
INPUT FF 
INSERT 
INPUT 20 
INPUT 85 
INPUT 84 
INPUT 20 
INPUT A2 
INPUT FF 
INPUT 6 A 
INPUT CA 
INPUT DO 
INPUT © 5 
INPUT 85 
INPUT 84 
INPUT 6 0 
SEARCH F F 


22 


E-2 


u 
là) 


Le 
S 


> © 


ss n= OPS Ss 
DS 


m==O=n nne = 


== gn 
—_ AJ wf KO 
© © 
Ss & 


display: 
XX XX XX 


óg 


85 
85 
20 
4C 


FF 


20 
85 


20 
A2 
FF 
GA 
CA 
Dg 
Ö5 
85 


60 
FF 


E2 XX 
E2 BO 
E3 d2 
E4 FF 
E5 03 
B5 20 


10 09 
go 
F9 
FA 
FB 
11 dd 
GF 1D 
10 
XX 


F9 
D7 
12 49 
11 99 


12 49 


14 40 
FA 

D7 

14 69 
g4 

13 09 
EEEEEE 


13 

FA 
FA 
FB 


13 09 


opmerkingen: 


voorbereiding: 
geheugen bereik vastleggen 


aanroepen editor (koude start) 
editor klaar voor gebruik (EOF) … 
DISPL begint met label 10 

LDA # GQ 

STAZ-INH 

STAZ-POINTL 

STAZ-POINTH 

label nummer 11: DA 
JSR-GETBYT (6F is geen labelnummer!) 
BPL naar label 1 

Het eerste toetsfoutje! Gelukkig is de 
instruktie nog niet kompleet: 
STAZ-INH 

STAZ-HEXL 

JSR-HEXDEC label nummer 12 
JMP-DA label nummer 11 

N.B. Figuur Î is nu ge-edit 
HEXDEC label nummer 12 
toetsfout! INSERT in plaats van INPUT 
JSR-COMNUM label nummer 14 
STAZ-POINTL 

STYZ-HEXL 

JSR-COMNUM label nummer 14 
LDX # 04 

label 13 is HD 

CA (volgende opcode) te snel! 

na INPUT is alles weer OK (DEX) 
BNE naar label 13 
ORAZ-POINTL 

STAZ-POINTL 

STYZ-POINTH 

RTS; figuur 2 afgewerkt 

zoek label 13 op 


toetsen _ dispfay opmerkingen: 


SKIP OA 

SKIP CA 

SKIP Dd 13 

SKIP 05 FA 

SKIP 85 FA 

SKIP 84 FB 

SKIP 69 

SKIP 77 71, dus INSERT indrukken! 
INSERT FF 1400 FF 14 Ód COMNUM heeft label 14 
INPUT 84 D8 84 D8 STYZ-HEXH 


En toen ging het goed fout. De eerste instruktie van COMNUM, LDY #00, 


is overgeslagen. Een kwestie van INSERT indrukken: 


INSERT AQO0g AO O9 LDY #00 
SKIP 84 D8 STYZ-HEXH 


Nu is de instruktie LDY #00 voor STYZ-HEXH in het geheugen gezet en 
gaan we via INPUT gewoon verder: 


INPUT 201500 20 15 09 JSR-SUBTRA label 15 


INPUT 18 18 CLC 

INPUT Ab5D7 A5 D7 LDAZ-HEXL 

INPUT 69 9 A 69 GA ADC # BA 

INPUT 6 @ 68 RTS; figuur 3 is nu afgewerkt 
INPUT FF150@ FF 15 99 SUBTRA: label 15 
INPUT 38 38 SEC 

INPUT A5D7 A5 D7 LDAZ-HE XL 

INPUT E9IdA E9 GA SBC # GA 

INPUT 85 D7 85 D7 STAZ-HEXL 

INPUT A5 D8 A5 D8 LDAZ-HEXH 

INPUT E9gg E9 DO SBC # 09 

INPUT 3816 3% 16 BMI naar tabel 16 
INPUT CB8 C8 INY 

INPUT 4C1500 4C 15 09 JMP-SUBTRA label 15 
INPUT FF1600 FF 16 00 SUB; label 16 


INPUT 6 9 60 RTS; ook figuur 4 is nu ge-edit. 


Zo, dat staat erin. Gedurende het intoetsen zijn vrijwel meteen bepaalde 
toetsfouten gevonden en ter plekke gekorrigeerd. Maar zijn dat alle fouten? 
Toch nog maar eens nakijken: 

SEARCH FF 19 

SKIP 

SKIP 

SKIP 

enzovoorts. 

Het programma begint op het startadres @298 met een label. Dat label 
zoeken we via SEARCH F F 1 @ op. Door nu zo vaak te SKIPpen als nodig 
is verschijnen achtereenvolgens atle instrukties in het display. Beginnen we 
het gebruikersprogramma niet met een label, wat overigens hoogst onge- 
bruikelijk is, dan toetst men: 

SEARCH XX XX, 
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42 40 


80915 -5-7 














{abel 10 


tabel 11 


ISR — 1D6F 


BPL naar tabel 18 


ï 


u 
md 


JSR met label 12 


JMP naar label 11 


label 12 


JSR met label 14 








BPL naar label 16 


JMP naar label 15 


label 16 


j 
| 
) 


Figuur 7. Een deel van het werkgeheugen van de junior-computer na afloop van het 
editen en voor het assembleren. Zodra uit de editor naar de monitor wordt terug- 
gesprongen komt op de eerstvolgende lege geheugenplaats een “End Of File 
character” (EOF), 77 te staan. 
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<-tabel 18 weg 





2 00 


“label 11 weg 


deze JSR- niet geassembleerd 


BPL geassembleerd; 
Offset = F3 


_ 
md 


» 


JMP- geassembleerd; 
adres = 4208 


& 
Go 


JSR- geassembleerd; 
adres = 8217 


“label 12 weg 


JSR- geassembieerd; 
adres = 22E 





} BMI geassembleerd; 
offset = d4 


JMP- geassernbleerd; 
adres = @23B 


w 
u 


<- Jabel 16 weg 


80915.5-8 


md 


d 6 


77 = EOF (end of file } 


Figuur 8. Hetzelfde werkgeheugen als figuur 7, maar nu zoals dat er uit ziet na het 
assembteren. Alle labels zijn verwijderd. 
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waarbij XX XX gelijk is aan de opcode plus het eerste operand-byte van de 
eerste instruktie van het programma. De vlieger gaat niet op voor een 
eerste instruktie die één byte lang is. 

Pas als het gebruikersprogramma foutloos is ingetoetst kan (in dit praktijk- 
voorbeeld) het worden geassembleerd en vervolgens uitgevoerd, gestart. Pas 
dan zal blijken of een terugkeer naar de editor noodzakelijk is, bijvoor- 
beeld als blijkt dat het gebruikersprogramma niet doet wat de gebruiker 
ervan verwacht. 


Assembleren 


Na het editen is het gebruikersprogramma aan de junior-computer opge- 
geven. Die nog niet zover is dat het programma kan worden gestart, omdat 
er nog steeds sprake is van symbolische adressen in de vorm van een aantal 
labels met hexadecimale labeinummers. Aan de assembler de taak om die 
symbolische adressen te vertalen in echte, konkrete adressen. Dat geldt 
voor de te assembleren spronginstrukties. De twee operand-bytes van JSR- 
en JMP-instrukties moeten na het assembleren het werkelijke doeladres 
vastleggen. Het operand-byte moet na het assembleren de offset inhouden 
die hoort bij de voorwaardelijke sprong. En verder moeten na het assem- 
bleren alle labels (pseudo-instrukties met de pseudo-opcode FF) uit het 
werkgeheugen zijn verwijderd en alle open plaatsen gevuld door het op- 
schuiven van op een label volgende instrukties van het programma. 

Er volgt nu een korte beschrijving van de assembler. Veel meer hierover 
is te vinden in hoofdstuk 9. Wat er precies gebeurt is geïllustreerd met 
de figuren 7 en 8. Die geven de toestand weer van het werkgeheugen van 
de junior-computer (na het editen van het voorbeeldprogramma) voor 
(figuur 7) en na (figuur 8) het assembleren. 

Maar eerst iets anders. Het enige wat de gebruiker hoeft te doen om het 
programma te assembleren is: 


RST van editor terug naar monitor 
AD 1 F 51 startadres van de assembler 
GO junior-computer, ga maar assembleren! 


Het display is dan hooguit een paar sekonden lang (waarschijnlijker is: een 
paar tiende) volledig gedoofd. Is het assembleren klaar, dan wordt auto- 
matisch vanuit de assembler teruggesprongen naar de monitor. En dan is 
het grote moment aangebroken: 

ADG20D startadres gebruikersprogramma (DISPL) 

GO 

Zal-ie het doen? Alles goed ingetoetst? 


Voor en na het assembleren 


De junior-computer heeft een zogenaamde two-pass-assembler: Het assem- 
bleren gebeurt in twee stappen of juister: het programma in het werk- 
geheugen wordt twee keer doorlopen. 


Stap een. 
De computer leest het ingetoetste programma. fs daarbij uitsluitend geïnte- 
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resseerd in de pseudo-instrukties, dus in de labels. Het programma wordt 
instruktie voor instruktie bekeken. Zodra de pseudo-opcode FF wordt 
tegengekomen zegt de computer: Hè, een label. Hij bewaart het label- 
nummer en het adres van het label in een zogenaamde symbol stack. Dat 
is niets anders dan een door de computer tijdens het assembleren gemaakte 
lookup-table (opzoektabel). 

Zodra dat gebeurd is verwijdert de computer het label uit het gebruikers- 
programma. Hoe? Wel, een label is drie bytes lang. Door nu de inhoud van 
alle geheugenplaatsen (met echte instrukties en waarschijnlijk nog meer 
labels verderop), die op het te verwijderen label volgen, te verplaatsen naar 
een drie plaatsen hogere plaats, wordt het label keurig overschreven: na de 
operatie sluiten zich de rijen weer. 

Komt de computer weer een FF tegen, dan herhaalt het spelletje zich. Dat 
gaat net zo lang goed totdat alle op te sporen labels zijn gevonden: de sym- 
bol stack bevat dan van alle labels het labelnummer en het bijbehorende 
adres. Per label zijn drie geheugenplaatsen nodig en voor de symbol stack is 
één pagina van 256 bytes gereserveerd. Er kunnen dus maximaal 256 : 3 = 
85 labels worden opgeslagen; het gebruikersprogramma mag maximaal 
85 labels bevatten en dat is meer dan genoeg. 


Stap twee. 


Nadat alle labels zijn verwijderd bekijkt de assembler het ingetoetste pro- 
gramma nog een keer van kop tot staart. Nu zijn alleen de instrukties JSR-, 
JMP- en de voorwaardelijke spronginstrukties van belang. In de operand 
van deze instrukties zit nog altijd een labelnummer. Dat gaat er nu uit en 
er komt het echte sprongadres of de offset voor in de plaats. Zoals gezegd: 
bij ieder tabel hoort een adres, dat via de door de computer zelf aangelegde 
lookup-table vastligt. Bij elk label zoekt de computer het juiste adres op en 
zet het linker en rechter adresbyte ADH en ADL op de plaats van het 
labelnummer en het begrenzerbyte QD. En dat gaat zo door totdat alle 
JSR-'s en JMP-'s zijn ont-labeld. 

Met branch-instrukties gaat het iets anders. Ook nu is het doeladres be- 
kend via die lookup-table; het adres van de opcode van de branch-instruktie 
is uiteraard ook bekend. En daarmee ligt de offset vast: 
doetadres-sprongadres — 2 = offset. 

De korrektie van twee is nodig om voor de computer interne redenen (voor 
de programmatelter-korrektie: zie de hoofdstukken 3 en 4). 


Editen na het assembleren 


Het is mogelijk om een geassembleerd programma direkt na het assem- 

bieren te editen. We moeten er dan wel goed op letten dat 

1. de editor warm wordt gestart: 

2. de displaywijzer CURAD met de hand (intoetsen) kwa inhoud gelijk 
gemaakt moet worden aan de beginadreswijzer BEGAD:; 

3. de eindadreswijzer ENDAD met de hand gelijk gemaakt moet worden 
aan de tot nu toe nog niet behandelde variabele eindadreswijzer CEND, 
met CENDL op plaats G9E8 en CENDH op GOES. 
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Dus bij het praktijkvoorbeeld moeten we dan als volgt toetsen: 


DAG @ CURAD = 6200 
+ 2 

+ FF 5 

a | CEND = Ó3FF 
AD 1 CCA warme start 

GO start editor 


Met de SKIP-toets kan het programma instruktie voor instruktie worden 
doorgenomen en met de SEARCH-toets is het mogelijk om een bepaalde 
_instruktie op te sporen. Nu mogen alleen dan instrukties worden toege- 
voegd of weggelaten indien de doeladressen van spronginstrukties en de 
offsets ongewijzigd blijven. | 

N.B. Het is uiteraard ook mogelijk om het programma byte voor byte, dus 
op de “ouderwetse’ manier te doorlopen. Uiteraard ontbreekt dan het 
totaal-overzicht van een instruktie, maar daar staat tegenover dat van elk 
byte het adres in beeld verschijnt. Na afloop van het assembleren wordt 
er automatisch naar de monitor gesprongen. De voor het alternatieve 
bekijken van het programma nodige toetsfunkties AD, DA en + zijn dan 
operationeel. 


Dingen om goed te onthouden 
1. startadres editor: 1CB5 (koude start) 
1CCA (warme start) 
2. adreswijzers van de editor: 
BEGADL = 99E2 : ie 
BEGADH = Ó0E3 beginadreswijzer 
EOD — DOE eindadreswijzer 
CURADL = BEG Ë we 
CURADH = 60E7 | displaywijzer 
B ENDD _ Boes | variabele eindadreswijzer 
3. startadres assembler: 1F51 
4. starten van de editor of de assembler via toets ST (NMI): 
NMIL = 1A7A rechter adresbyte ADL de NMI k 
NMIH = 1A7B linker adresbyte ADH f_van de NMI-sprongvektor 
4a. editor koude start: 
AD1 A 7 A 
DAB 5 
+ TC 
ST als het zover Is 
4b. editor warme start: 
ADT A7 A 
DAC A 
+ 1C 
ST als het zover is 
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4c. assembleren: 
AD 1 A7 A 
DA 5 1 
+ 1F 
ST als het zover is 


5. Nakijken hoeveel geheugenruimte (al) is gebruikt: (inklusief labels en 


EOF) 

toetsen display 
RST XX XX XX 
AD OQOEB8 DÛ E83 XX 
+ 0Û EI XX 
1 CCA | 
GO 


terugkeer naar monitor 
ADL van CEND 
ADH van CEND 


terug naar editor (warme start) 


Toelichting: de variabele eindadreswijzer CEND staat gericht op de 
hoogste "'lege’’ geheugenplaats. Zie ook hoofdstuk 8. 


In dit hoofdstuk hebben we kennis gemaakt met de editor en de assembler 
van de junior-computer. Kennis, die ons al in het nu volgende hoofdstuk 


goed van pas zal komen. 


N.B. In Aanhangsel 2, achter in dit boek, staat een volledige 
listing van het programma DISPL en de bijbehorende subroutines 
(zie het gedeelte met de titel BINARY DECIMAL CONVER- 


SION). Dit voorbeeldprogramma kan na het editen en assem- 
bleren en na de terugkeer naar de editor instruktie voor instruktie 
worden vergeleken met de versie van het programma, achterin dit 


boek. 
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Junior-1/O 


Het buitengebeuren 


Zonder kommunikatie met de buitenwereld is een computer, 
ook de junior-computer, tot werkeloosheid gedoemd. Een 
belangrijke bestaansvoorwaarde voor de computer is dan ook de 
aanwezigheid van een invoer-/uitvoerorgaan (I/O), voor de 
kommunikatie met de gebruiker. 

De PIA is het kommunikatie-medium van de junior-computer. 
Deze bouwsteen is echter tot mêer in staat dan het regelen van 
de minimum-kommunikatie zoals het toetsen- en display- 
verkeer. Hij kan nog veel meer: via de poortkonnektor kan de 
PIA het verkeer met randapparatuur regelen. Nuttige rand- 
apparatuur, zoals een alfanumeriek toetsenbord, een video- 
display (denk daarbij aan de Elekterminal, beschreven in het 
tijdschrift Elektuur), of een printer. 

Maar dat is nog lang niet alles. Via de PIA en de poortkonnektor 
kun je eigenlijk alles sturen aan de hand van een passend ge- 
bruikersprogramma. Je kunt het zo gek niet bedenken: servo- 
motoren, als onderdeel van een regelsysteem of toegepast in de 
modelbouw, allerlei elektronica-schakelingen die om logische 
ingangssignalen vragen of logische uitgangssignalen afgeven als 
invoersignaal voor de junior-computer, enzovoorts. 

In dit hoofdstuk leren we de mogelijkheden van de PIA grondig 
kennen. En dat gebeurt, zoals u van ons gewend bent, aan de 
hand van konkrete programmavoorbeelden. Geheel in overeen- 
stemming met de titel van dit hoofdstuk hebben deze voor- 
beelden een speels karakter: met de junior-computer gaan we 
geluid maken, en meer dan dat: geordend geluid in de vorm van 
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muziek! Dat neemt echter allemaal niet weg dat het geen 
probleem is om de stap te maken naar “serieuzere” toepassingen, 
zoals de sturing van een proces. En of dat proces nou de dienst- 
regeling is van een uitgebreid modelspoorwegnet of de sturing 
van een niet al te groot fabrikageproces — de junior-computer is 
te gebruiken als proces-computer! 


De filosofen mogen dan al eeuwenlang bakkeleien over de stelling: “Zonder 
omgeving bestaat de mens niet”, in het geval van de computer kan daar- 
over geen enkel misverstand bestaan: Er is al vastgesteld dat de computer 
het moet hebben van wat de mens hem opdraagt. Dat betekent een nood- 
zakelijke kommunikatie van gebruiker naar computer. De kommunikatie 
in de andere richting is op grond van de "domheid’’ van de computer 
eveneens van levensbelang. Juist omdat de computer zonder “eigen ideeën’’ 
doet wat de al dan niet domme gebruiker hem opgeeft te doen is een 
terugmelding naar de gebruiker noodzakelijk. En dat allemaal nog geheel 
los van het feit dat de gebruiker het resultaat van het doorlopen 
gebruikersprogramma graag wel zou willen kennen. Want waar dóe je het 
anders voor! ? 

Een computer zonder uitvoermogelijkheden (terugmelding) is te verge- 
lijken met een hooggeleerd figuur, die het allemaal wel weet (vergelijk de 
opgave door de gebruiker van wat de computer moet doen), maar die 
kennis niet kan of wil overdragen. 

De computer moet zich dus kunnen “uiten” aan de buitenwereld: de 
gebruiker of meer dan dat. Hoe doet hij dat? Eigenlijk net zo als de 
mensen dat doen. Taal, in mondelinge of schriftelijke vorm, is het middel 
om ideeën en gedachten die aanwezig zijn in het menselijke geheugen’, 
de hersenen, aan de buitenwereld kenbaar te maken (we sluiten het “in 
zichzelf praten” nu even uit). 

De computer heeft óók een stel hersens: het geheugen. Hij heeft ook 
ideeën en gedachten, namelijk dat wat hem is opgedragen door de gebrui- 
ker, dus de ideeën en gedachten van de gebruiker. En hij beheerst ook een 
taal: de taal van enen en nullen waarmee we in hoofdstuk 2 van Junior- 
computer 1 kennis hebben kunnen maken. 

De PIA is de mond van de junior-computer, maar ook het gehoororgaan. 
Hij kan goed luisteren en valt niemand in de rede. (hooguit het hoofd- 
programma met een interrupt) Laten we die PIA eens onder de loep 
nemen. 


De PIA. Terreinverkenning 


Als PLA voor de computer is het type 6532 genomen, een broertje van de 
6502; het blijft dus in de familie en dat levert een zeer goede taakverdeling 
op tussen de microprocessor en de PIA. We geven eerst een oriënterend 
overzicht van de mogelijkheden die de PIA biedt. 

Naast de in boek 1 al besproken 128 bytes-RAM bevat de PIA het niet 
onaanzienlijke aantal van zeventien registers of juister gezegd: de PIA is op 
1/7 verschillende adressen bereikbaar, die allemaal iets te maken hebben 
met de taken van de PIA als invoer/uitvoerorgaan, als interval-timer of als 
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flankdetektor. Alle zeventien registers zijn door de uP op te vatten als 
geheugenplaatsen die hetzij beschreven (STA, STX, STY), hetzij gelezen 
(LDA, LDX, LDY), hetzij beschreven of gelezen worden. Al die Zeventien 
geheugenplaatsen moeten dan ook bereikbaar zijn op een bepaald adres. 

Voordat de zeventien registers stuk voor stuk zullen worden besproken 
volgt nu eerst een overzicht. Zeg maar het menu van wat u in dit hoofd- 
stuk krijgt voorgeschoteld: 


À. 


De poorten A en B: 
1. PAD: dataregister poort A 
2. PADD: data-richtingsregister poort A 
3. PBD: dataregister poort B 
4. PBDD: data-richtingsregister poort B 


. Start van de interval-timer; timer-RQ geblokkeerd: 


5 CNTA: CLKIT (deelfaktor 1) 

6. CNTB: CLKST (deelfaktor 8) 

7. CNTC: CLK64T (deelfaktor 64) 

8. CNTD: CLKIKT (deelfaktor 1024) 


. Het vlagregister: bleh Umar — daan ppeen 


9. RDFLAG ROT DIS 


. Start van de interval-timer; timer-FRQ mogelijk: 


10. CNTE: CLKIT (deelfaktor 1) 

11. CNTF: CLKST (deelfaktor 8) 

12. CNTG: CLK64T (deelfaktor 64) 
13. CNTH: CLKIKT (deelfaktor 1024) 


. Bit 7 van poort A als flankdetektor: 


14. EDETA: gevoelig voor 1/0-overgang; IRO geblokkeerd 
15. EDETB: gevoelig voor @/1-overgang; IRO geblokkeerd 
16. EDETC: gevoelig voor 1/Ö-overgang; IRQ mogelijk 
17. EDETD: gevoelig voor @/1-overgang; IRQ mogelijk 


De zeventien bijbehorende adressen zijn: 


De 
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. PBD: 1A82 Ck tr! 
‚ PBDD: 1A83 Dl 


‚ PAD: 1A80 Do 


Ee 


PADD: 1A81 


CNTA: 1AF4 
CNTB: 1AF5 
CNTC: 1AF6 
CNTD: 1AF7 


. RDFLAG: 1AD5 Apr Ors LA DU 
. CNTE: 1TAFC 
. CNTF: 1AFD 
‚ CNTG: 1AFE 
‚. CNTH: 1AFF 
. EDETA: 1AE4 
. EDETB: 1AEB 
. EDETC: 1AE6 
17. 


EDETD: 1AE7 


17 adressen horen bij zes registers: de poorten A en B met hun data- 
richtingsregister, het timer-dataregister en het vlagregister. 
In figuur 1 staat het schema getekend van de samenhang tussen de PIA en 


EI en dj ede de re 3 mn mm DE dt nn 


de rest van de junior-computer. Alleen de poorten A en B en hun richtings- 
registers zijn getekend. In figuur 2 is een detail weergegeven van het 
principeschema van de junior-computer (zie hoofdstuk 1). En wel het 
detail dat betrekking heeft op de verbindingen tussen de PIA en de drie 
bussen van de junior-computer. Deze figuur zal ook hulp bieden bij de uit- 
leg van hoe die 17 adressen van daarnet tot stand zijn gekomen (zie ook 
tabel 1). 


Nu eerst meer bijzonderheden, met name over de poorten. 


De PIA, de drie bussen en de poortkonnektor 


Bij de nu volgende bespreking van de samenhang (in letterlijke zin: hoe 
zijn welke “touwtjes’’ aangesloten) zijn de figuren 1 en 2 van belang. 

De PIA heeft twee poorten, poort A en poort B. Elke poort bestaat uit 
acht poortlijnen en het is niet toevallig dat dat aantal overeenkomt met het 
aantal lijnen (bits) van de databus. Beide poorten zijn op de poortkonnek- 
tor beschikbaar als 8 aansluitingen. Beide poorten spelen, zoals in figuur 2 
is te zien een rol bij de sturing van de displays en bij het vaststellen van 
ingedrukte toetsen. Deze “interne” toepassingen van beide poorten be- 
spreken we in hoofdstuk 7. 

De op de poortkonnektor beschikbare poortlijnen katiën dienen voor de 
sturing van randapparatuur, bijvoorbeeld een printer. We zullen zien dat 
er nog talloze andere mogelijkheden zijn. Er moet natuurlijk bij extern 
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Figuur 1. De positie van de PIA ten opzichte van de overige onderdelen van de 
junior-computer. Er zijn twee poorten, elk van acht poorttijnen (poortbits). Bij elke 
poort hoort een data-richtingsregister; de inhoud ervan bepaalt voor elke poortlijn of 
het een ingang is of een uitgang. 
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Figuur 2. De verbindingen tussen de PIA en de drie bussen van de junior-computer. 
De poorten A en B zijn betrokken bij de bediening door de junior-computer van het 
toetsenbord en van het display. 


gebruik mee rekening worden gehouden dat een aantal poortlijnen beschik- 
baar moet blijven voor de "huishoudelijke dienst’: het bedienen van het 
display en het toetsenbord. Tenzij men natuurlijk geen gebruik meer hoeft 
te maken van deze diensten, omdat er externe alternatieven zijn. De vrije 
poortlijnen zijn PA7, PB@en PB5... PB7. 
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De verbindingen tussen de PIA en de 6502-uP verlopen via drie bussen. 

De adresbus zorgt in samenwerking met het signaal K6 van de stuurbus 

voor de juiste adressering van de 17 interne geheugenplaatsen (registers). 

De databus verzorgt de aan- en afvoer van PlA-data. De datarichting (het 

lezen van danwel het schrijven in een poort) wordt bepaald door de 

logische toestand van het signaal R/W, dat tot de stuurbus hoort, evenals: 

— het ®2-kloksignaal, als klok voor de timer 

— het signaal RES, voor het opstarten van de PIA 

— het signaal IRQ, waarmee via de timer of de poortlijn PA7 door de PIA 
een interrupt kan worden uitgelokt. Hoe? Dat komt allemaal nog 
uitgebreid aan de orde. 


De poorten A en B 


Als we het over poorten hebben, spreken we de ene keer van poortlijnen 
of poortaansluitingen (op de poortkonnektor), de andere keer van (een) 
poortbit(s). In beide gevallen gaat het om exakt hetzelfde. Het komt 
allemaal omdat het wezen van I/O, en dus van de PIA, een vervaging 
van de grenzen is tussen zuivere software: de bits en bytes, en 100%- 
hardware: de soldeerpunten. 

De poorten A en B bestaan elk uit 8 poortlijnen, 8 bits. In figuur 1 zijn 
deze terug te vinden als PAG...PA7 en PBÒ...PB7. Het bit met 
nummer ® is het meest rechtse ("least significant’) bit van het overeen- 
komende databyte, bit 7 het meest linkse (’‘most significant’). Er zijn 
twee poorten en er is één databus. De voortzetting van de databus naar 
buiten de junior-computer loopt op een bepaald moment dus via poort A 
of poort B. 

Elke poorttijn kan naar keuze — onafhankelijk van de andere poortlijnen — 
als ingang of als uitgang dienst doen. Ten behoeve hiervan is aan beide 
poorten een data-richtingsregister toegevoegd. De bits in zo'n register 
bepalen welke van de acht poortlijnen ingang zijn en welke uitgang (“'bits’’, 
“poortlijnen” ... ziet u wat we bedoelen met vermenging van software en 
hardware?) 

Het tweerichtingsverkeer van en naar een poort betekent dat er data naar 
een poort geschreven kan worden en data uit een poort gelezen. Voor 
het schrijven van data in een poortlijn of poortlijnen, die op dat moment 
als uitgang dienst doen, is het niet nodig om die data kontinu aan te 
bieden. Na een kortstondige schrijfoperatie van een handvol mikrosekon- 
den blijft het bitpatroon op de uitganlen) ongewijzigd tot een volgende 
schrijfoperatie. Als uitgang gebruikte poortlijnen hebben een geheugen- 
funktie omdat ze werken met flipflops; die hebben een “latch-funktie’’ 
(data-vergrendeling). 

Bij als ingang gebruikte poortlijnen ligt het anders. Wordt tijdens een 
leesoperatie data van buiten via een poortlijn of poortlijnen binnengehaald, 
dan geldt als ingangsdata die data die op het kortstondige moment van 
lezen op de ingang(en) aanwezig is: data inlezen is een data-moment- 
opname. 

De bitjes-kant van de zaak, dus de enen en de nullen: Een ingangslijn is 
logisch 1 en wordt als zodanig tijdens een leesoperatie herkend als de 
spanning erop minstens 2,4 volt bedraagt; voor een logische ® geldt een 
spanning van 0,4 volt of minder. 


35 


Voor het bewaren van te lezen data en geschreven data, en voor de be- 
paling van de keuze: ingang of uitgang heeft de PIA vier registers in huis: 
1. PAD: dataregister poort À 

2. PADD: data-richtingsregister poort A 

3. PBD: dataregister poort B 

4. PBDD: data- richtingsregister poort B 

De richtingsregisters zijn ook in figuur 1 aangegeven. De bits ervan bepalen 
per poortlijn of deze ingang of uitgang is: 


bit (richtingsregister) ® > overeenkomende poortlijn is ingang 
bit (richtingsregister) 1 — overeenkomende poortlijn is uitgang 


De adressen van de vier registers: 
PAD: 1A89 
PADD: 1A81 
PBD: 1A382 
PBDD: 1A83 
Hoe gaat het “dresseren” van poorten in zijn werk? Twee praktijkvoor- 
beelden. 
a. alle 8 poortlijnen van A moeten ingang zijn en alle 8 poortlijnen van 
poort B uitgang. Het programma: 
LDA IMM 6 maak alle bits van de accu-inhoud nul 
STA-PADD schrijf de accu-inhoud over in het data-richtingsregister 
van poort A 
LDA IMM FF maak alle bits van de accu-inhoud één 
STA-PBDD schrijf de accu-inhoud over in het data-richtingsregister 


van poort B 
De versie met opcodes en adressen: 
A9 0) 
8D 81 1A 
A9 FF 
8D 83 1A 


b. de poortlijnen PA4 en PBO moeten uitgang zijn, de overige poortlijnen 
ingang. De beide richtingsregisters moeten als volgt worden ‘behandeld’: 


b7 b6 b5 b4 b3 b2 b1 b@ 
PADD 0 Ô Od 1 @ PO Pd Ö hexadecimaal: 10 
PBDD Ó 0 P PH Ö P DP 1 hexadecimaal: D1 
Het programma: 
LDA IMM 15 laad accu met bitpatroon 
STA-PADD schrijf de accu-inhoud over in het data-richtingsregister 
van poort À 
LDA IMM GQ1 laad accu met bitpatroon | 
STA-PBDD schrijf de accu-inhoud over in het data-richtingsregister 


van poort B 
Nogmaals het programma; nu de bytes: 
A9 19 
8D 81 1A 
A9 01 
8D 83 1A 
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Lezen en schrijven van data 


Voor het lezen van data uit een ingangspoort moeten de relevante poort- 

lijnen tot ingang zijn verklaard. Het lezen van een uitgang is een buiten- 

gewoon zinloze zaak. 

Na een leesoperatie komt de data op de ingangslijn(en) in een intern 

register van de 6502-uP terecht: X, Y of A. 

Een voorbeeld: | 

LDA IMM dg 

STA-PADD poortlijnen PAP ...PA7 zijn tot ingang verklaard 

LDX-PAD 

Is op het moment van lezen het bitpatroon op deze poort gelijk aan: 
10101110 

dan staat na afloop van de leesoperatie de data AE in het X-register. 

Het gedetailleerde programma: 

A9 99 

8D 81 1A 

AE 8 1A 

(het bitpatroon is toevallig gelijk aan de opcode van LDX ABS) 

Zoals al eerder opgemerkt: het op het moment van lezen op ingangen 

aanwezige bitpatroon, met inachtname van spanningen c.q. logische nivo's, 

verschijnt in een intern register van de microprocessor. De geheugenfunktie, 

zoals we die kennen van uitgangen wordt bij ingangsdata pas effektief als 

de data binnen is, d.w.z. zich in een register van de microprocessor bevindt. 


Bij het schrijven van data in een poort moeten de relevante poortlijnen afs 
uitgang zijn geprogrammeerd. Het schrijven van data in een ingangslijn 
heeft geen enkele zin. 

Een voorbeeld: 

LDA IMM FF 

STA-PADD PAD... PA7 als uitgang geprogrammeerd 

LDX IMM C3 

ST X-PAD 

In detail: 

A9 FF 

8D 81 1A 

A2 C3 

8E 89 1A 


Na afloop is de inhoud van X en die van poort A C3: 
PA7 PA6 PA5 PA4 PA3 PA2 PA1 PAY 
1 1 9 9 9 9 1 1 
Nn Nen gn) 


C 3 

Bij de sturing via een als uitgang geschakelde poortlijn van extern aan- 
gesloten transistoren, poorten of andere logische schakelingen moet erop 
gelet worden dat elke uitgang in de logische nul-toestand slechts 1,6 mA 
stroom kan opnemen. De ”TTL-fanout” (het aantal standaard-belas- 
tingen) bedraagt 1. In de logische 1-toestand kunnen, als de “TT L-kompa- 
tibiliteit”” wordt overboord gegooid, de als uitgang gebruikte poortlijnen 
PBO...PB7 maximaal 3,5 mA bij een uitgangsspanning van minstens 
1,5 volt leveren. 
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Nu we het toch over de hardware-kant van de zaak hebben: De poort- 
lijnen van de 6532 zijn noch tegen te hoge spanningen, noch tegen te grote 
stromen beveiligd. Bij de aansluiting op een printer bijvoorbeeld, met 
allerlei induktieve bijverschijnselen, moet ervoor worden gewaakt dat de 
spanning op een poortlijn nooit negatief of hoger dan +7 volt wordt. 

N.B. Een open poortingang is logisch1. 


U heeft nu kennis gemaakt met de vier basisregisters van de PIA. Laten we 
er eens iets mee gaan doen. 


Een praktijkvoorbeeld: omschakelbare toontjes 


We willen de junior-computer hoorbare toontjes laten produceren. De 
toonhoogte moet afhankelijk zijn van de stand van acht schakelaars. De 
schakelaars zijn elk aan één kant aangesloten op een poortlijn van poort A; 
de andere kant ligt aan massa, is dus logisch @. De frekwentie van de toon 
moet op poortlijn PBG aanwijzig zijn; een eenvoudige elektronische 
schakeling met onder andere een miniatuurluidsprekertje moet een en ander 
hoorbaar maken. Er zijn acht schakelaars en de in principe 256 mogelijke 
verschillende toonhoogten hoeven niet allemaal ten gehore te worden 
gebracht. Er moet een programma worden gemaakt dat dit alles mogelijk 
maakt. 

Ziedaar wat er allemaal moet gebeuren. Beginnen we met de schakeling 
die op de poortkonnektor wordt aangesloten. Deze staat in figuur 3. We 
zien zes schakelaars, S@...S7, aangesloten op poort A; bit nul van poort 
B voert ons via de weerstanden R1 en R2 naar de darlington-transistor 
T1. In de kollektorleiding van T1 is ondermeer een miniatuurluidsprekertje 
opgenomen. De schakeling wordt gevoed uit de junior-computer. Poortlijn 
PBÒ wordt als uitgang gebruikt; deze lijn voert het stuursignaal voor T1; 
de laatste op zijn beurt stuurt de tuidspreker. Poortlijn PBO zal dus de 
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Figuur 3. Ten behoeve van de uitvoering van het programma DEMO van figuur 4 
moet deze schakeling op de aangegeven manier worden verbonden met de poort- 
konnektor van de junior-computer. Voor de aansluitingen van de poortkonnektor: 
zie figuur 5b. 
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toonhoogte-informatie (de frekwentie) van de ten gehore gebrachte 
tonen moeten voeren; dat is eis nummer één voor het te ontwikkelen 
bijbehorend programma. 

Eis nummer twee heeft te maken met de toonhoogte van de toontjes, 
afhankelijk van de stand van de schakelaars Sj... S7. Bij het aan massa 
leggen (schakelaar gesloten) van tenminste één van de poortlijnen 
PAD ...PA7 moet er een toon hoorbaar zijn. Beperkt men zich telkens 
tot één met massa verbonden poortlijn, dan moet de toonhoogte lager zijn 
naarmate de met massa verbonden poortlijn een hoger lijnnummer heeft. 
Verder moet gelden dat de toonhoogte lager wordt naarmate er meer 
schakelaars gesloten zijn. 


Het programma DEMO 


Het programma voor de opwekking van de tonen staat in figuur 4. Het 
heeft de naam DEMO meegekregen; dat heeft alles te maken met het 
“demonstratieve” karakter ervan. 

Het begint met het tot ingang verklaren van alle acht poortlijnen van poort 
A. Lijn ® van poort'B wordt vervolgens als uitgang geprogrammeerd; de 
overige poortlijnen van B zijn ingang. 

En dan is het programmadeel van DEMO na het label FREOQ aan bod. We 






A2 X — dg AX 


LDX # 09 
STX — PADD 


STX — PBDD 


8E 1A81 alle leidingen van poort A ingang 


E8 x= G1 


8E 1483 PBO is uitgang 


(ì) [U ler PBG 





Deen 


STY — PBD 
DELAY 








lees schakelaarstanden in 
inverteer bitpatroon 
Y gg 


PBG is gd 





wacht een tijdje 
Y=01 
PBG is 1 


wacht een tijdje 


volgende periode van 


de blokgolf 80915-6-4 


Figuur 4. Het programma DEMO zorgt in samenwerking met de aangesloten 
schakeling van figuur 3 voor de realisatie van een programmeerbare blokgolf- 
generator. De toonhoogte van de hoorbare blokgolven hangt samen met de stand 
van acht schakelaars. 
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gaan poortlijn PB een tijdje lang @ maken en daarna een even lange tijd 1. 
Dat doen we met behulp van de subroutine DELAY. 
"Even lang hoog als laag’ heeft alles te maken met een symmetrische 
blokspanning. En het is dit signaal dat op de uitgang PB komt te staan en 
via de luidspreker hoorbaar is. 
Het programma na label FREQ begint met het laden van de accu met de 
inhoud van poort A. Die inhoud hangt af van de stand van de schakelaars 
SÛ...S7. Stel dat SÛ, S2, S4, S6 en S8 op het moment van het lezen 
van poort A gestoten zijn en de overige schakelaars geopend. Na het tezen 
staat er dan in de accu: 

PA7 PAG PA5 PA4 PA3 PA2 PA1 PAQ 

1 Û 1 9 1 j 1 Ö 

U ziet dat een open poortlijn (schakelaar geopend) logisch 1 is; dit van- 
wege de aanwezigheid van een pullup-weerstand. 
De volgende instruktie is EOR IMM FF: de accu-inhoud wordt bit voor bit 
met 1111 1111 ge-Exclusive ORd. De regeltjes daar bij zijn: 
a. overeenkomende bits aanelkaar gelijk — @ 
b. overeenkomende bits ongelijk — 1 
Na afloop ziet de accu er zo uit: 


01010101 


Waar een 1 stond staat nu een @ en waar een @ stond staat nu een 1. Het 
bitpatroon in de accu is omgekeerd. Geïnverteerd. 

We zien dat hoe meer schakelaars gesloten zijn, des te meer enen er uit- 
eindelijk in de accu zijn. We zien ook dat als er één van de acht schakelaars 
gesloten is, de 1 in de accu linkser staat naarmate een poortlijn met een 
hoger poortnummer ® is geworden. In beide gevallen wordt het binaire 
getal dat de accu-inhoud voorstelt groter. Aangezien de inhoud van de accu 
straks bepaalt hoe lang de subroutine DELAY duurt, en hoe lang dus een 
periode van een blokgolf duurt, is de grootte van de accu-inhoud van 
belang voor de toonhoogte van wat er uit de luidspreker komt. 

De instrukties LDY IMM 99 en STY-PBD maken bit ® van poort B nul. 
Hoe lang dat zo blijft hangt ervan af hoe lang het aansluitende verblijf 
in DELAY duurt (daarover direkt meer). De volgende twee instrukties 
maken bit $ van poort B één. Het aansluitende verblijf in DELAY bepaalt 
hoe lang dat zo blijft. Na de terugkeer uit DELAY volgt de sprong terug 
naar het label FREOQO. We zien dat de uitgang PB dus periodiek af- 
wisselend 1 en nul is; dus dat er een blokspanning op poortlijn PBO staat. 
De subroutine DELAY staat ook in figuur 4, Hij bepaalt de periodeduur 
en dus de toonhoogte. Dat gaat als volgt: De instruktie TAX kopieert de 
inhoud van de accu in het X-register en de daarop volgende DEX verlaagt 
de inhoud van dit register met 1. De BNE gaat na of X al nul is of niet. 
Zoja: klaar (RTS). Zonee: terug naar label DEL voor een nieuwe verlaging 
van X. 

Het aantal keren dat de sprong naar DEL vanuit de BNE plaatsvindt is 
bepalend voor de duur van het verblijf in DELAY. Datzelfde aantal hangt 
ook af van de grootte van de accu-inhoud. Dus van de grootte van het 
getal, gevormd door de bits in de accu. Maar dát hing nou juist af van de 
stand van de schakelaars tijdens het lezen van poort A. Waarmee de samen- 
hang duidelijk is geworden tussen de stand van de schakelaars en de toon- 
hoogte. 
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Uit het programma is ook duidelijk de geheugenfunktie van als uitgang 
gebruikte poortlijnen naar voren gekomen: de toestand van bit nul van 
poort B verandert alleen de beide STA-instrukties; bij de ene STA van 1 
in D, bij de andere van B in 1. 


Het intoetsen van DEMO 


Een blik op figuur 4 leert ons dat het programma DEMO veel minder bytes 
vergt (met inbegrip van de vier labels) dan de 225 bytes die vrij beschik- 
baar zijn in pagina Ö® van het werkgeheugen: de plaatsen 6000... OOEO. 
Op deze plaatsen, vanaf GPD, komt het programma te staan. 

Bij het intoetsen van het programma gebruiken we de editor en de assem- 
bler, dus kennis, verworven in hoofdstuk 5. De beginadreswijzer BEGAD 
gaat worden gericht op 0000, de eindadreswijzer ENDAD op OOEY. 

Het starten van de assembler na afloop van het editen gebeurt door middel 
van indrukken van de toets ST, dus via een NMI: een kwestie van het laden 


van de plaatsen 1A7A en 1A7B met het startadres van de assembler. 
Toets voor toest en instruktie voor instruktie gebeurt het volgende: 


toetsen: display: opmerkingen: 

RST 

AD OE 2 OOE2 XX 

DA dg OGE2 DO _ 

E B BE } BEGAD = 9000 

+ E @ GGE4 EG Ee 

8 En ae | ENDAD = OGEG 

AD 1 A7 A TA7A XX NMI-sprongvektor 
DA 51 TA7A 51 = 1F51 

+ 1 F 1A7B 1F (startadres assembler) 
AD 1CB5 1CB5 20 start editor 

GO 17 editor startklaar 
INSERT FF 1000 FF 19 90 label 19: DEMO 
INPUT A20 A2 09 LDX IMM GO 

INPUT 8E81 1 A 8E 81 1A STX-PADD 

INPUT ES8 E8 INX 

INPUT 8E831 A 8E 83 1A STX-PBDD 

INPUT FF1100 FF 11 @d label 11: FREOQ 
INPUT AD801 A AD 8® 1A LDA-PAD 

INPUT A49 FFP 49 FF EOR IMM FF 
INPUT Adgó Ad 00 LDY IMM gg 

INPUT 8 C821 A 8C 82 1A SsTY-PBD 

INPUT 201200 26 12 09 JSR-DELAY (label nummer 1 2) 
INPUT CS8 C8 NY 

INPUT 8C821A 8C 82 1A sTY-PBD 

INPUT 201200 20 12 OP JSR-DELAY (label nummer 12) 
INPUT A4C1 100 4C 11 09 JMP-FREOQ (label nummer 11) 
INPUT FF1200 FF 12 O0 label 12: DELAY 
INPUT AA AA TAX 

INPUT FF1300 FF 13 d9 label 13: DEL 
INPUT CA CA DEX 

INPUT D183 Dg 13 BNE naar tabet 13 
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toetsen: display: opmerkingen: 


INPUT 6 ® 6 RTS 

ST XX XX XX start assembler via NMI 
AD dd d GeFd A2 startadres DEMO 

GO start DEMO 


Na de start van DEMO en — om misverstanden te voorkomen — nadat de 
schakeling van figuur 3 op de poortkonnektor is aangesloten, hoort men 
een toon zolang minstens eén schakelaar gestoten is. De toon is lager van 
frekwentie naarmate er meer schakelaars zijn Ee en naarmate er meer 
hogere poortlijnen met massa zijn verbonden. 


Het programma DEMO is een simpele en hoorbare toepassing van de beide 
poorten en hun richtingsregisters. Nu een groter, maar ook leuker program- 
mavoorbeeld. 


Muziek! 


Noten uit bytes: de junior-computer als toetsinstrument 


Er zit muziek in de junior-computer! Dat zal blijken als er een bepaald 
elektronisch schakelingetje op de poortkonnektor wordt aangesloten en als 
een bijbehorend programma wordt ingetoetst en vervolgens gestart. 

Het gaat om een muziekinstrument met een toetsenbord van 16 toetsen en 

een toetsindeling, net zoals bij de piano het geval is, in witte en zwarte 

toetsen. Het wordt een monofoon toetsinstrument. Er kan dus maar één 
toets tegelijk worden behandeld, net als bij het gebruik van een type- 
machine het geval is. 

Om dat allemaal te realiseren moeten de volgende aktiepunten worden 

uitgevoerd: 

1) ontwerp een elektronische schakeling die, aangesloten op de poort- 
konnektor, toetsen bevat (invoer) en de toon, horend bij een ingedrukte 
toets, ten gehore brengt (uitvoer); 

2) maak een programma dat zorgt voor de detektie van een ingedrukte 
toets en voor de vaststelling welke toets is ingedrukt. De hoogte van de 
te produceren toon is dan bekend; 

3) maak een programma dat ervoor zorgt dat de tonen, horend bij achter- 
eenvolgens ingedrukte toetsen hoorbaar worden. 

De drie aktiepunten zulten nu stuk voor stuk worden besproken. 


Punt 1: de hardware 


In figuur Ba is de schakeling getekend, die moet worden aangesloten op de 
poortkonnektor. In figuur bb staat een overzicht van de aansluitingen van 
de poortkonnektor. 

Wat is er allemaal nodig? Allereerst een stuurschakeling voor de luidspreker; 
deze is aangelsoten op poortlijn PBO en ziet er net zo uit als de stuur- 
schakeling van figuur 3. De poortlijn PB@ wordt ook hier als uitgang 
gebruikt. 

De zestien toetsen staan opgesteld in een rechthoek (matrix) van vier rijen 
en vier kolommen. Uiteraard gaat het daarbij om de elektrische situatie! 
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De praktische opstelling van de toetsen is op één lijn met van links naar 
rechts gaande een toenemende toonhoogte. Elke toets is gekoppeld met 
een schakelaar met twee kontakten; één kontakt hoort tot een rij, het 
andere tot een kolom. Er kan gebruik worden gemaakt van echte toetsen, 
zoals gebruikt in elektronische orgels, of van ’‘digitasten’’: dezelfde toetsen 
als de toetsen van de junior-computer. 

De vier rijen zijn elk verbonden met één van de poortlijnen PA4 .. . PA7, 
de vier kolommen elk met één van de poortlijnen PAD... PA3. De poort- 
lijnen PAG ...PA3 worden als ingang gebruikt, PA4 ...PA7 als uitgang. 
(Let op de pijlen in figuur ba). Voor aktie (toon hoorbaar) na een inge- 
drukte toets moet de bijbehorende schakelaar gesloten zijn. De ingedrukte 
toets wordt ontdekt tijdens het logisch nul zijn van het bijbehorende 
rijkontakt; hij “uit” zich dan in de vorm van een nul op die poortlijn van 
PAG...PA3, waarmee het bij de toets horende kolomkontakt is verbon- 
den. Telkens wordt één bepaalde toetsrij via het programma onderzocht op 
een ingedrukte toets. Afgezien van @OQP gelden dan voor de poortbits 
PA4...PA7 de volgende zinvolle mogelijkheden: 


PA7 PA6 PA5 PA4 
a 1 1 1 ö onderzoek rij @ (= E) 
b 1 1 g 1 onderzoek rij 1 (= D) 
c 1 g 1 1 onderzoek rij 2 (= B) 
d 1 1 1 1 onderzoek rij 3 (= 7) 


Deze kombinaties zijn ook in figuur ba aangegeven; het programma gaat 
ervoor zorgen dat ze periodiek voorkomen in het kader van het opzoeken 
van een ingedrukte toets. 

N.B. Zolang een toets niet is ingedrukt is de verbinding met de bijbehoren- 
de poortingang open. Dat uit zich in een logische 1 op die ingang. Hetzelf- 
de geldt voor de situatie waarbij een toets wel is ingedrukt, maar de 
bijbehorende rij niet voor onderzoek aan bod is. 


Punt 2: de software. Het programma KEY VAL 


Let wel: het programma dat nu gaat worden besproken is nog niet “het” 
programma dat ons als muziek in de oren klinkt; dat is pas in punt 3 aan 
de orde. Nu gaat het om een programma dat: 

a. een ingedrukte toets vaststelt; 

b. vaststelt welke toets is ingedrukt. 

Het programma heet KEYVAL, staat in figuur 6 en gaat nu worden 
besproken. Het is in grote lijnen gelijk aan het deel van het monitor- 
programma, nodig voor toetsdetektie en -indentifikatie. Kijk maar in 
hoofdstuk 7. 

Voordat in het programma van punt 3 naar KEYVAL wordt gesprongen 
is het nodig dat, in overeenstemming met figuur ba, de lijnen van poort A 
de juiste funktie hebben. Dat gaat zo: 

LDAIMMFS (=1111 0900) 

STA-PADD 

waardoor PAG .. . PA3 ingang en PA4 ... PA7 uitgang zijn geworden. 

Het programma KEYVAL (figuur 6) begint met het laden van de ge- 
heugenplaats ROW met F7, dat is 1111 @111. Vervolgens wordt de in- 
houd van X gelijk gemaakt aan @4. Het X-register doet dienst als rijteller. 
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PA7 


PAG 





PA5 
PA4 


kolom 2 


N 
PBG 





poortkonnektor 





80915-6-5a 


Figuur 5. Deze schakeling moet worden aangesloten op de poortkonnektor van de 
junior-computer ten behoeve van de uitvoering van het programma PLAY van 
figuur 7, het programma INPUT van figuur 14a/14b, en — voor wat betreft de 
luidsprekerschakeling ook voor de uitvoering van het programma REPEAT 
(figuur 16a/16b) (figuur 5a). In figuur 5b staan de aansluitingen van de poort- 


konnektor. 


Hij houdt bij, welke rij van de toetsenmatrix van figuur Sa aan bod is. 
Welke rij aan de beurt is hangt als volgt samen met de waarde van X: 


X = 04 
X = 03 
X = 02 
X= 01 
X = 00 


PA7 ...PA4= 


1111 
1110 
1101 
1011 
d111 


geen enkele rij 
rij d 
rij 1 
rij 2 
rij 3 


Dat de bitpatronen van deze vier bits overeen komen met het bitpatroon 
PA7 . . . PA4 moeten we nog even uitleggen. Het programmadeel vanaf 
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Db 


Ì k niet gebruikt 
niet gebruikt . 
Î niet gebruikt 
niet gebruikt 


niet gebruikt 
PB3 


o 
o 
| o 
o 
o 
o 
o PB2 
PB1 o 
o PBO 
PB7 o 
fe) PB6 
PB5 o 
8 o PB4 
niet gebruikt o 
. . o +5 V 
niet gebruikt o 
. Ì o niet gebruikt 
niet gebruikt o 
o ntet gebruikt 
niet gebruikt o Ì 
o niet gebruikt 
PA7 o 
o PAG 
PAB o 
o PA4 
PA3 o 
o PA2 
PA1 o 
o PAD 
+5 V o 
80915-6-5b o massa 





label KEYA tot en met de BEOQ wordt vier keer achterelkaar doorlopen. 
Zolang de rijteller niet negatief is (test met een BMI) wordt de nul in 
geheugenplaats ROW met de instruktie ASL-ROW een plaats naar links 
geschoven en via de accu in poort A geschreven. Aan het begin is de 
inhoud van ROW F7=11110111 en na een keer schuiven is deze 
1118 1111 geworden. Na het transport van de inhoud van ROW naar 
poort A is dus PA4 geworden en is rij d voor onderzoek aan de orde. Bij 
een volgende doorgang van dit programmadeel schuift de nul een plaats 
naar links en is PA5 nul voor het onderzoek van rij 1, enzovoorts. 

Het deel van KEYVAL van KEYA tot en met de BEO, wordt doorlopen 
zolang geen toets is ingedrukt. Telkens na vier omlopen volgt via de BMI 
de sprong terug naar het label KEYVAL, voor het opfrissen van de stand 
van X en de inhoud van ROW. 

De zojuist omschreven wachtlus wordt pas onderbroken na de vaststelling 
van een ingedrukte toets. Dat gebeurt door het lezen van de inhoud van 
poort A: LDA-PAD. Alleen de rechter vier poortbits zijn interessant. 
Vandaar het aansluitende nul maken van het linker nibble, dat overeen- 
komt met PA4 ...PA7: uitgangen, die “onleesbaar” zijn. De volgende 
instrukties, CMP IMM @F en BEO testen de aanwezigheid van een inge- 
drukte toets. Is zo’n toets aanwezig, dan wordt de stand van X genoteerd 
(STX-TEMPX en STA-KEY); de rij waartoe de ingedrukte toets behoort 
ligt vast. 

Nu horen bij elke rij vier toetsen. Dus moet ook nog de kolom van de 
ingedrukte toets worden uitgezocht. Daar houdt de rest van KEYVAL zich 
mee bezig. 

We zijn toe aan alles na label KEYB van figuur 6. Bekijken we de inhoud 
van KEY eens. Voor het verband tussen de inhoud van KEY en de kolom 
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Figuur 6. De subrouti 


e schakeling van figuur 5a wordt bepaald en vervolgens 


ingedrukte toets van d 


plaats KEY. Deze subroutine wordt gebruikt in het 


opgeslagen in de RAM- 


in het programma INPUT van figuur 14a/14b. 


programma PLAY van figuur 7 en 
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van de ingedrukte toets geldt: 

inhoud KEY = 661110 — ingedrukte toets van kolom } 

inhoud KEY = G9GP1101 — ingedrukte toets van kolom 1 

inhoud KEY = B6BH1011 — ingedrukte toets van kolom 2 

inhoud KEY = B6BGH111 — ingedrukte toets van kolom 3 

Van een ingedrukte toets is de rij en in principe ook de kolom bekend. De 
kolominformatie zit verpakt in de positie van de nul in het rechter nibble 
van de inhoud van KEY. Het aantal keren dat de inhoud van KEY naar 
rechts moet worden geschoven totdat de carryvlag nul is levert regelrecht 
en eenduidig "‘de”’ kolom op. 

Dat is de achtergrond van de eerste aktie na het label KEYB in fiquur 6, 
namelijk LSR-KEY. De aansluitende BCC is zeer gevoelig voor de stand 
van de carryvlag. Zolang deze vlag niet nul is wordt X (die vlak voor KEYB 
nul is gemaakt) met één verhoogd. De instrukties CPX IMM 04 en BNE 
gaan na of de inhoud van KEY al vier keer naar rechts is verschoven. (Meer 
dan vier keer schuiven heeft geen zin. Zie het bitpatroon van KEY.) Zonee: 
terug naar KEYB. Zoja: via de BEQ "terug naar AF, KEYVAL. 

Zodra de kolom van de ingedrukte toets is bepaald kan op basis van de 
kolom en de rij aan elke toets een bepaalde toetswaarde worden toegekend. 
Dat gebeurt in de programmadelen ROWA, ROWB, ROWC en ROWD. Hoe 
ligt nu eigenlijk elke toets vast? Het antwoord: 


inhoud TEMPX = 83 — rij d X = ÓJ — kolom } 
inhoud TEMPX = g2 — rij 1 X = B1 > kolom 1 
inhoud TEMPX = @1 —rij 2 X = É2 > kolom 2 
inhoud TEMPX = 6 — rij 3 X = B3 — kolom 3 


(zie ook figuur ba) 

Na ROWA gaat de inhoud van TEMPX de accu in. ts gebleken dat de toets 
hoort tot rij @, dan gaat de waarde van X via een TXA de accu in en 
springen we naar KEYC. Is het geen toets van rij @, dan wordt na ROWB 
bekeken of het een toets is van rij 1. Zoja, dan gaat ook nu de waarde van 
X naar de accu en wordt er vervolgens @4 bij de accu-inhoud opgeteld en 
springen we naar KEYC. 

Is het ook geen toets van rij 1, dan gaan we verder met ROWC met de 
vraag: is het een toets van rij 2? Zoja: zet de waarde van X in de accu, tel 
er @8 bij op en spring naar ROWD met de test of die toets dan soms bij 
rij 3 hoort. Is dat niet het geval, dan is er iets niet in orde: voor alle zeker- 
heid maar terug naar het begin, KEYVAL. Is wel alles OK, dan gaat de 
waarde van X naar de accu, wordt er bij de accu-inhoud GC (= 12) opgeteld 
en is label KEYC aan de orde: de inhoud van de accu (de toetswaarde van 
de ingedrukte toets) wordt opgeborgen in de geheugenplaats KEY, alle 
poortbits van poort A worden nul gemaakt en met de instruktie RTS is de 
subroutine KEYVAL als afgewerkt beschouwd. De toetswaarde (d ... F) 
van elke toets is aangegeven in figuur ba. 


Punt 3: de software. Het programma PLAY 
We zijn nu toe aan het hoofdprogramma. Het heet PLAY en staat in 
figuur /. Het programma besteedt bepaalde klusjes uit aan de zojuist 
besproken subroutine KEYVAL (figuur 6) en aan de subroutines KEYIN 
(figuur 8a), DELAY (figuur 8b) en EQUAL (figuur 8c). 
De ouverture van PLAY houdt in dat de poortlijnen PA4 ...PA7 als 
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| STA —PADD | 1A81 _PA4,..PA7 uitgang; PAG... PA3 ingang 


STA — PBDD [| 1483 PBG is uitgang 


1480 PA4._.PA7 =} 


toets ingedrukt? 


kontaktdenderonderdrukking 


toets ingedrukt? 


bepaal toetswaarde 


Y —toetswaarde 


produceer toon 









Ag LDA # 40 


8D f STA --PBD | 1482 PBG = 9 


BE |LDX — DEL,Y| 1489 bepaal halve periadeduur 








wacht 22 us (korrektie voor symm. blokgolf) 


XX 1 


&erste periode blokgolf klaar? 


LDA # @1 


STA --PBD [1A82 Pao =1 Teen, 


BE [LDX — DEL, Y 1AGG bepaal halve periodeduur 








ROW _* $49D9 


KEY * $49DA 
nieuwe toets ingedrukt ? TEMPX * $40DB 
nee DEL * $1Agd 


CA XX —1 


PAD * $1A80 
D “_$1A81 
E tweede periode blokgolf klaar? PADD $ 
PBO * $1A82 
a 


PBDD * $1483 
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Figuur 7. Met het programma PLAY worden ingedrukte toetsen van de schakeling 
van figuur 5a omgezet in hoorbare tonen. Bij elke toets hoort een bepaalde toon- 
hoogte. De frekwenties van opeenvolgende toetsen verlopen bij benadering volgens 
de verhouding twaalfdemachtswortel-twee. 


LDA — PAD 1480 lees poort A 
AND # GF bekijk alleen rechter nibble 
EOR#GF - inverteer accu-inhoud 
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v<Y--1 


80915-6-8c 


80915-8b 





Figuur 8, De subroutines KEYIN (toetsdetektie; figuur 8a), DELAY (toetsdender- 
onderdrukking; figuur 8b) en EQUAL (tijdskorrektie voor symmetrische blokgolf; 
figuur 8c) worden aangeroepen vanuit het programma PLAY van figuur 7 en vanuit 
het programma INPUT van figuur 14a/14b. 


uitgang worden geprogrammeerd en PAG... PA3 als ingang. Poortlijn PBQ 
wordt uitgang; poortbit PBO krijgt de waarde 1. En dan krijgen alle bits 
van poort A de waarde nuli. 

Het programma vanaf het label PA begint met de aanroep van KEYIN 
(figuur 8a). Dat begint met het lezen van poort A. Als er een toets is 
ingedrukt is één van de rechter vier bits nul. Na het maskeren van het 
linker nibble (AND IMM GF) en het omkeren van de rechter vier bits van 
de inhoud van de accu (EOR IMM GF) is bij het verlaten van KEYIN de 
accuinhoud ongelijk aan nul bij een ingedrukte toets, en gelijk aan nul als 
geen toets is ingedrukt. 

Na de terugkeer in PLAY volgt een BEQ. Is er geen toets ingedrukt, dan 
gaat het terug naar PA (wachtlus). Is dat wel het geval dan is het pro- 


49 


gramma toe aan DELAY (figuur 8b). Het enige nut van DELAY is: wacht 
een tijdje. Wacht totdat de inhoud van Y 255 keer achter elkaar met gen is 
verlaagd. 

Vanwaar dat wachten? Omdat we pas verder kunnen gaan als de toets- 
schakelaar, horend bij de ingedrukte toets definitief is gesloten. Het 
preciese ''waarom'’ van deze kontaktdender-onderdrukking komt uit- 
gebreid aan de orde in hoofdstuk 7, bij de bespreking van de behandeling 
van toetsen van de junior-computer via het monitorprogramma. 

Dezelfde verwijzing geldt ook voor het “waarom” van een tweede aanroep 
van KEYIN, plus aansluitende BEO. 

En dan volgt de aanroep van de subroutine KEYVAL, die in punt 2 
(figuur 6) uitgebreid is besproken. Na de terugkeer naar PLAY staat de 
toetswaarde van de ingedrukte toets in de geheugenplaats KEY; de inhoud 
daarvan wordt gekopieerd in het Y-register (LDY-KEY). 

We zijn toe aan wat er in PLAY volgt op het label TONE. De naam van het 
label zegt het al: de opwekking van een toon, die via de op poortlijn PBG 
aangesloten luidspreker hoorbaar is en waarvan de toonhoogte afhangt van 
de vraag welke toets is ingedrukt. 

Het principe van de toonopwekking is hetzelfde als dat in het programma 
DEMO van figuur 4. Eerst wordt PBJ nul gemaakt en wacht het pro- 
gramma een tijd. Daarna wordt PBY 1 en wachten we dezelfde tijd. Zolang 
er geen andere toets is ingedrukt herhaalt zich het spelletje: De elkaar 
afwisselende enen en nullen op PBG betekenen de sturing van de erop 
aangesloten luidspreker met een symmetrische en — wat belangrijker is — 
hoorbare blokspanning. 

De toonhoogte zit in de tijd die verloopt tussen twee opeenvolgende nivo- 
veranderingen van PBD. Deze tijd is gelijk aan de halve periodeduur van de 
blokgolf. Hoe langer een periode duurt, des te lager de frekwentie van de 
toon is. 

De toonhoogte moet ook afhangen van welke toets is ingedrukt. Infor- 
matie over de toets staat in Y. Door X nu een bepaalde waarde te geven die 
afhangt van welke toets is ingedrukt en door die waarde van X tussen twee 
opeenvolgende nivoveranderingen van PB@ herhaald te verlagen met 1 tot- 
dat X nul geworden is, hangt de periodeduur samen met de positie op het 
toetsenbord van de ingedrukte toets (zie figuur ba). 

Hoe krijgt X de toetsinformatie? Wel, op pagina 1A zijn 16 plaatsen van de 
PIA-RAM gereserveerd voor een opzoektabel (lookup table), die voor elk 
van de zestien toetsen een waarde van X bevat in overeenstemming met de 
bij de toets horende toonhoogte. 

Bij deze fase van de bespreking van PLAY is figuur 9 van belang. We zien 
het toetsenbord met de 16 toetsen. Links staat de toetswaarde (vergelijk 
figuur 5a) van elke toets. Direkt rechts naast de toetsen in figuur 9 staat 
een kolom decimale getallen. Elk getal geeft aan hoeveel keer X met 1 
verlaagd moet worden tussen twee opeenvolgende nivo-wisselingen van 
PBG. En weer rechts dáárvan dezelfde informatie, maar dan hexadecimaal. 
Die informatie komt in de opzoektabel te staan. 

De getallen in figuur 9 zijn voor elke toets zodanig gekozen dat de bij- 
behorende frekwentie tot stand komt. Toets Q9 is één oktaaf lager dan 
de A, heeft dus een frekwentie van 220 Hz. De toonhoogte van opeen- 
volgende toetsen verloopt zo goed en zo kwaad als dat gaat volgens de 
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sj} a 

54 Ze 
toets dec hex adres 
GF 69 3C <7 1AGF 
GE 63 3E > 1AGE 
dD 67 43 > 1AGD 
sc 71 47 … 1AQC 
dB 75 4A <> 1A0B 
dA 79 4E 7 1AGA 

Hz —- 49 


84 54 <> 1AQ9 
95 DE > 1A07 (Y = toetswaarde) 


149 64 > 1A06 
146 6A “” 1445 
112 70 > 1A04 
119 1 > 1A03 
126 7E <> 1A42 


134 86 “7 1A01 
142 8E > 1A49 
Figuur 9. De muzikale en de software-kant van de toetsen van figuur 5a. De toon- 


hoogte-informatie staat voor elke toets op een bepaalde plaats van de opzoektabel 
DEL. 
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twaalfdemachtswortel-twee-toonladder (frekwentieverhouding 1,059463). 
Elke toets in figuur 9 bevat een getal dat de halve periodeduur van de 
toon aangeeft, in mikrosekonden. 

Terug naar PLAY. We nemen alles na het label TONE nog even met u 

door. | 

1) PBO wordt nul gemaakt. 

2) LDX-DEL,Y. Het register Y bevat de toetswaarde en bepaalt welke 
plaats van de opzoektabel in X wordt gekopieerd. 

3) EQUAL. Een subroutine die zorgt voor een wachttijd van ca. 16 mikro- 
sekonden (zie figuur 8c). Vijf opeenvolgende loze instrukties NOP 
zorgen voor een tijdskorrektie, zodat een symmetrische blokgolf 
ontstaat. 

4) DEX plus BNE plus gang naar TA. Hoe vaak, hangt af van de begin- 
waarde van X. 

5) LDA IMM @1 plus STA-PBD. De eerste periodehelft van de blokgolf 
zit er nu op: PB verandert van 1 in Q. 

6) LDX-DEL,Y. Haal de beginwaarde van X op voor de tweede periode- 
helft. | 

7) JSR-KEYIN plus BEO. Andere toets ingedrukt? Ga dan terug naar 
PA. 

8) (mits geen andere toets is ingedrukt, zie 7) 

DEX plus BNE plus gang naar TB. Hoe vaak, hangt af van de begin- 
waarde van X. 
9) BEO. Ga terug naar TONE, voor de volgende periode van de blokgolf. 
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® 


gE 


DOEEDDEE 


BEQ {niet springen) (2) 


DEX 


@ 
EO 
@ 


KEYIN 
BNE {springen} 


BEQ {springen) 
LDA IMM 69 
STA — PBD 


Oee 


JSR— EQUAL (6) 








EQAL: 5 x NOP (2) + RTS (6) (6) 


LDX — DEL,Y 
BNE (springen) 

TLDAIMMG1 
STA — PBD 


DEX 
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X-maal 


Figuur 10. Het nivo-verloop van de blokgolf gedurende de relevante programmafase 
van PLAY (figuur 7). Bepaalde groepen instrukties worden tijdens de eerste en tijdens 
de tweede periodehelft een herhaald aantal (X) keren doorlopen. 


In figuur 10 is de blokgolf op poortlijn PBJ getekend. Voor beide perioden 
is aangegeven welke instrukties van PLAY gedurende een bepaalde halve 
periode aan de orde zijn. Voor elke instruktie is de tijdsduur aangegeven 
die nodig is voor de uitvoering ervan (omcirkelde getallen). Dat komt men 
aan de weet door het aantal klokpulsen dat nodig is voor de uitvoering van 
een instruktie op te zoeken in het instruktie-overzicht in Aanhangsel 2 van 
Junior-computer 1. En verder moet men weten dat een klokpuls 1 gs duurt 
bij gebruik van een kristal van 1 MHz. 

U ziet in figuur 10 ook de stukjes programma, die X maal doorlopen 
worden. Gedurende de tweede periodehelft wordt de subroutine KEYIN 
aangeroepen, vervolgens doorlopen en gevolgd door een BEQ (onderzoek 
nieuwe toets). Dat is 22 us "extra’' ten opzichte van de eerste periodehelft. 
En het is daarom dat een tijdskorrektie tijdens de eerste periodehelft nodig 
is, teneinde een symmetrische blokgolf te krijgen. De 22 us zijn verkregen 
door 6 us (aanroep EQUAL) op te tellen bij 16 ps (duur van het verblijf in 
EQUAL). S 

Waarmee alles gezegd over het programma PLAY. Of toch nog één ding. 
De toonhoogte van elke toon is instelbaar via wijziging van de inhoud van 
de opzoektabel. 

Hoogste tijd nu om het programma in te toetsen. 


Punt 4. De praktijk 


Het programma PLAY en de bijbehorende subroutines (zie de figuren 6, 
7 en 8) wordt ingetoetst met behulp van de editor. Er is voldoende ruimte 
in het geheugenbereik BOOG ... GÖEG op pagina GP. We beginnen het 
intoetsen van het programma dan ook met het vastleggen van de begin- 
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En _— _ ns ii ee en ee a 
rens er en e_ ear ene de ss ee aa 


adreswijzer BEGAD op G00G, en van de eindadreswijzer ENDAD op GOED. 
Uiteraard heeft al het nu volgende toetswerk alleen zin als de schakeling 
van figuur ba is aangesloten! 


toetsen: 


RST 
AD 
DA 
+ 

+ 

+ 
AD 
DA 
+ 
AD 
GO 


INSERT 


INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 


INPUT 


INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 


== mese & 
onp ese SS 


vs) 
GI 


nnOOTnNTWOPUONnWAPnPNTNN TAN nAP@o PoP n 


nesespSsesnmygoSsPpesnmgenAesesssesesnTgEggeEegE 


ND OO © 
e 


WOSRSOGNEONN EN EO MS gE Ees 0 no 


ON OS OS O0 


=WSENSENPS == 0O=-A=s=eEeNW=ssee 


—_ OO B ON == WW 


ND & 


GG == = 


GG GQ == == 


e ss eer 


SS Pp Pp 


display: 
XXX 
GEE? 
GGE2 
GPE3 
OGEA 
GOES 
1A7A 
1A7A 
1A7B 
1CB5 
77 

FF 90 
A9 FO 
8D 81 
A9 01 
8D 83 
8D 82 
A9 00 
8D 89 
FF 91 
29 28 
FO 91 
20 29 
29 28 
FO 91 
20 20 
A4 DA 
FF 92 
A9 09 
8D 82 
BE GO 
FF 93 
20 31 
CA 
Dg 93 
A9 01 
8D 82 
BE G9 
FF 94 
20 28 
Fó 91 
CA 
D® 94 
FO 92 
FF 20 


XX 
XX 


go 


gg 

EQ 

ao 
XX 
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1F 


20 


do 
1A 


TA 
1A 


1A 
00 
00 


00 
od 


dg 
0d 
1A 
1A 


og 
od 


1A 
1A 
od 


dg 


opmerkingen: 


BEGAD = 0699 
ENDAD = GGEG 


NMI-sprongvektor = 1F51 
(startadres assembler) 


aanroep editor (koude start) 
editor startklaar 

label 99: PLAY 

LDA IMM F9 
STA-PADD, 

LDA IMM 91 
STA-PBDD 

STA-PBD 

LDA IMM 99 

STA-PAD 

label 91: PA 
JSR-KEYIN (label 28) 
BEOQ naar PA (label 91) 
JSR-DELAY (label 29) 
JSR-KEYIN (label 28) 
BEO naar PA (label 91) 
JSR-KEVYVAL (label 20) 
LDYZ-KEY (DA) 
label 92: TONE 

LDA IMM GS 
STA-PBD 

LDX-DEL,Y (DEL = 1460) 
label 93: TA 
JSR-EQUAL (label 31) 
DEX 

BNE naar TA (label 93) 
LOA IMM @1 

STA-PBD 

LDX-DEL,Y 

tabel 94: TB 
JSR-KEYIN (label 28) 
BEQ naar PA (label 91) 
DEX 

BNE naar TB (label 94) 
BEQ naar TONE (label 92) 
label 20: KEYVAL 


53 


toetsen: 


INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
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o=@0onge-@CoTnge=-gons@oTOPnIOMmMmMEORTP0O0TONPOPSwWONP AP 


oopPreseornesovonpPresoneownpPpewEnrnopPresoananresesswesnnNraoesoogVvaAaRSsP TN AO 


Ne@gn 


NUNSTgYNSS 0 OTN 
WPNSPO-=nnSeS OOS 


NeNNeS NSNN NGEGUNNNe 
RWWWeEN A 


== aA 


NSNN SS 
GS 0 Jl OO 


= PD O 


TIN B 


display: 


A9 F7 
85 D9 
A2 04 
FF 21 
CA 

30 20 
Ge D9 
A5 D9 
8D 80 
AD 8% 
29 OF 
C9 GF 
FO 21 
86 DB 
85 DA 
A2 00 
FF 22 
46 DA 
90 23 
E8 

E@ Q4 
D® 22 
FO 20 
FF 23 
A5 DB 
c9 03 
Dg 24 
8A 

AC 27 
FF 24 
co 02 
DQ 25 
8A 

18 

69 04 
D® 27 
FF 25 
Co 01 
D9 26 
8A 

18 

69 08 
D@ 27 
FF 26 
co 09 
Dj 20 
8A 

18 

69 OC 


9 


1Â 
1A 


08 


09 


09 
00 


0 


00 


opmerkingen: 


LDA IMM F7 

STAZ-ROW (d6D9) 

LDX IMM 94 

label 21: KEYA 

DEX 

BM! naar KEYVAL (label 29) 
ASLZ-ROW (B6D9) 
LDAZ-ROW (ddD9) 
STA-PAD 

LDA-PAD 

AND IMM GF 

CMP IMM GF 

BEQ naar KEYA (label 21) 
STXZ-TEMPX (d0DB) 
STAZ-KEY (GÓDA) 

LDX IMM 99 

label 22: KEYB 
LSRZ-KEY (ODA) 

BCC naar ROWA (label 23) 
INX 

CPX IMM @4 

BNE naar KEYB (label 22) 
BEOQ naar KEYVAL (label 20) 
label 23: ROWA 
LDAZ-TEMPX (99 DB) 
CMP IMM 93 

BNE naar ROWB (label 24) 
TXA 

JMP-KEYC (label 27) 

label 24: ROWB 

CMP IMM 92 

BNE naar ROWC (label 25) 
TXA 

CLC 

ADC IMM @4 

BNE naar KEYC (label 27} 
label 25: ROWC 

CMP IMM @1 

BNE naar ROWD (label 26) 
TXA 

CLC 

ADC IMM 98 

BNE naar KEYC (label 27) 
label 26: ROWD 

CMP IMM 99 

BNE naar KEYVAL (label 20) 
TXA 

CLC 

ADC IMM GC 


toetsen: display: 
INPUT F F 2 700 FF 27 09 
INPUT 8 5 D A 85 DA 
INPUT A9 8 0 A9 G@ 
INPUT 8 D 8 @ 1 A 8D 89 1A 
INPUT 6 @ 60 
INPUT F F 28 9 0 FF 28 0d 
INPUT A DS8 9 1 A AD8® 1A 
INPUT 29 9 F 29 OF 
INPUT 4 9 B F 49 OF 
INPUT 6 9 69 
INPUT F F 2930 FF 29 0d 
INPUT A FF AG FF 
INPUT FF 3% 0 @ FF 39 99 
INPUT 8 8 88 
INPUT DÒ 3 @ Dg 30 
INPUT 6 @ 60 
toetsen: display: 
INPUT F F3 100 FF 31 00 
INPUT EA EA 
INPUT EA EA 
INPUT EA EA 
INPUT EA EA 
INPUT EA EA 
INPUT 6 9 60 

Zo, dat zite 

toetsen: display: 
SEARCH F F 9 9 FF 99 09 
SKIP A9 FO 
SKIP 8D 81 1A 
SKIP A9 61 
SKIP 8D 83 1A 
SKIP 8D 82 1A 
SKIP A9 09 
SKIP SD 88 1A 
SKIP FF 91 Og 
SKIP 20 28 ÓP 
SKIP FB 91 
SKIP 20 29 09 
enzovoorts. 


opmerkingen: 

label 27: KEYC 
STAZ-KEY (BDA) 
LDA IMM 99 
STA-PAD 

RTS 

label 28: KEYIN 
LDA-PAD 

AND IMM GF 

EOR IMM GF 

RTS 

label 29: DELAY 
LDY IMM FF 

label 30: DELA 
DEY 

BNE naar DELA (tabel 30) 
RTS 


opmerkingen: 
label 31: EQUAL 
NOP 

NOP 

NOP 

NOP 

NOP 

RTS 


rin. En hopelijk in één keer goed. We kijken nog eens alles na: 


opmerkingen: 
eerste 2 bytes van eerste instruktie 
(op het startadres 9900) 


Als het met een bepaalde instruktie niet in orde is, schroom dan niet om 
deze met de DELETE-toets te verwijderen en om de juiste instruktie in te 
brengen met de INSERT- of INPUT-toets. 

Alles in orde? Hoogste tijd om te assembleren: 


toetsen display: 
ST XKNKKMK 
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Na het assembleren zijn we terug in de monitor. Nu toetsen we de fre- 
kwentie-opzoektabel in: 


toetsen display: 


AD 1AQB XX 
1AG) 3E 
1Ad1 86 
1AG2 7E 
1A03 77 
1AG4 70 
1AG5 6A 
1AB6 64 
1A07 BE 
1AG8 59 
1AG9 54 
1AGA 4E 
1AGB 4AÂA 
1AGC 47 
1AGD 43 
1ADE 3E 
1AGF 3C 


Waarna het programma kan worden gestart: 


Oo 

> 
e 
e 


Ht tt dt ok tt kk tt + 
WWA SNN 
omwWNPmMeOoOmaePeN moe mp 


toetsen: _ display: 
AD 90 GAG AS 
GO (gedoofd) 


Het programma PLAY is gestart. Met het op de junior-computer aange- 
sloten toetsenbord kan men nu een melodietje spelen. Telkens wordt 
slechts eén toets tegelijk geaccepteerd (monofoon spel). 

Na het intoetsen van het programma is het nu tijd voor het “intoetsen” 
van een melodie! 


Er zijn nu twee voorbeeldprogramma’s besproken, waarin de standaard- 
l/O-mogelijkheden zijn gebruikt: twee poorten en twee data-richtings- 
registers. Dat is echter nog lang niet alles. De PIA bevat een zogenaamde 
interval-timer, waarmee tijd kan worden afgeteld: een soort “software- 
kookwekker”. Nadat de interval-timer met al zijn mogelijkheden (dadelijk) 
zal worden besproken volgt een tweetal (muzikale) programmavoorbeelden. 


De interval-timer 


Terreinverkenning 


Het blokschema van de interval-timer staat in figuur 11. De timer bestaat 

uit drie blokken: 

a. Het timer-dataregister. Dit register is net als het X- of Y-register 8 bits 
breed. Het is verbonden met de databus. Er kan data in worden 
geschreven of uit worden gelezen. Lijkt dus als twee druppels water op 
een RAM-geheugenplaats. 

b. Het deler-register. Afhankelijk van de logische toestand van de erop 
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R/W PA7 A3 At AO 


vlagregister 


timer — vlag 
PA7 — viag 


D7 D6 D5 04 D3 D2 D1 DO 80915-6-11 








timer — dataregister P2 






deler — register 


Figuur 11. De opbouw van de interval-timer, een onderdeel van de PIA. Er is dén 
timer-dataregister dat via acht verschillende adressen voor de programmeur 
toegankelijk ís. 


aangesloten adreslijnen AQ en Al wordt het ®2-kloksignaal gedeeld 

door een bepaald getal. 
Voordat blok c aan de orde komt eerst de kombinatie van a) en b): de 
eigenlijke interval-timer. 
Deler-register en timer-dataregister vormen de interval-timer. Telkens 
wanneer het deler-register “dat zegt’ wordt de inhoud van het timer- 
dataregister met 1 verlaagd. Dit aftelmechanisme wordt kontinu in stand 
gehouden door de ®2-klokpulis. Telkens na een bepaald aantal ®2-klok- 
pulsen gaat de inhoud van het timer-dataregister met één omlaag. Dat 
aantal, de deelfaktor, is afhankelijk van de toestand van A@ en A1: 
A1=@ A= Òdeelfaktor 1; verlaging om de 1T us; 
Al=@ A= 1deelfaktor8; verlagingomde ST ys; 
A1=1 A@=@deelfaktor 64; verlagingomde 64T us; 
Al=1 A= 1deelfaktor 1024; verlaging om de 1024T ys; 
Die T is de klokperiodeduur. Voor de junior-computer geldt T = 1, omdat 
er een 1 MHZz-kristal als klokgenerator is gebruikt. 
Alvorens de inhoud van het timer-dataregister met 1 te verlagen verlopen 
er dus, afhankelijk van de deelfaktor, 1, 8, 64 of 1024 klokpuisen. Een 
voorbeeld. We schrijven 1E in het timer-dataregister en maken AG en A1 
zo, dat de deelfaktor 64 is. Decimaal is 1E hetzelfde als 30. Dat betekent 
dat de inhoud van het timer-dataregister ÓOÓ0 6600 is geworden na 
30 x 64 = 1920 mikrosekonden. 
Bij een maximale inhoud FF (= 256) van het timer-dataregister en bij de 
hoogste deelfaktor 1024 duurt het 1024 x 256 = 262.144 us voordat de 
inhoud van het timer-dataregister 6000 6600 geworden is. 


Nu het derde blok van figuur 11 


c. Het vlagregister is een 8-bits register, waarvan slechts twee bits worden 
gebruikt: een bit als timer-vlag en een bit als PA7-vlag. De niet-gebruikte 
zes bits zijn nul. Het vtagregister ziet er zo uit: 
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b7 b6 b5 b4 b3 b2 b1 b@ 


Xx XxX 0 B d B 0 U 


PA7 -vlag 
timer-vlag 





Bit b7 van het vlagregister, de timer-vlag, wordt geset, 1 gemaakt zodra het 
aftellen van de interval-timer beëindigd is (time out). Een voorbeeld: 


(deelfaktor 64, beginwaarde 1E) 


timer-dataregister: opmerkingen: 


1E = 4011110 
1D = 99011101 
1C = 96011100 


beginwaarde 
na 64 us 
na nog eens 64 us 


1B = 96011011 


na nog eens 64 us 


* « ® 


g2 = 60900010 
Ó1 = 60GG0P1 
09 = G000d000 
FF = 41111111 
FE =11111110 
FD = 11111101 
FC = 11111100 
FB = 11111011 


na nog eens 64 us 

na nog eens 64 us 

na nog eens 64 us (time out) 

één us later (b7 = 1; timer-vlag geset) 
na nog eens 1 us 

na nog eens 1 us 

na nog eens 1 us 

na nog eens 1 us 


92 = 90000010 
@1 = 0404091 


na nog eens 1 us 
na nog eens 1 us 


En dat gaat zo maar door. Binnen een “uitlooptijd’’ van 255 klokperioden 

na de time out kan men als volgt via een leesoperatie aan de weet komen 

hoeveel tijd er is verstreken sinds de time out: 

1. Lees het timer-dataregister. Stel dat er FC= 1111 1188 wordt ingelezen. 

2. Inverteer de bits: Od J11 

3. Teler 1 bij op: GOTY BO11 + dGTG dHH1 = GOGH D100 | 

4. Deze waarde is gelijk aan 4. Sinds de time out zijn er 4 klokpulsen, dus 
4 us verstreken. 

Na 255 us gaat de timer nog steeds door. De tijd, verstreken sinds de time 

out is echter niet meer exakt vast te stellen via een leesoperatie. 

De inhoud van het timer-dataregister aan het begin van het aftellen wordt 

ook wel "'timer-offset'’ genoemd. Het tijdstip waarop de inhoud van het 

timer-dataregister 9000 BEHP is geworden heet de "time out”’. 

Nog een paar dingen die men moet weten: 

1. De timer-vlag is gereset (d) na het lezen van data uit het timer-data- 
register. 
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2. De timer-vlag is eveneens gereset (B) na het schrijven van data in het 
timer-dataregister, dus direkt aan het begin van het aftellen. Dat is 
logisch als we al weten dat deze vlag 1 wordt na een time out. 

3. De timer-vlag wordt 7 mikrosekonde na een time out geset, dus 1 us na 
het nul worden van de inhoud van het timer-dataregister. Dus in het 
voorbeeld van daarnet: time out na 64 x 30 = 1920 us, timer-vlag 1 na 
1921 us. 

4. Na de time out gaat het deler-register automatisch over op een deel- 
faktor 1. De inhoud van het timer-dataregister wordt dan telkens na een 
P2-klokpuls met 1 verlaagd. 

Interrupt-mogelijkheden. Het vlagregister is verbonden met de IRO-leiding 
die zoals bekend ook op de 6502-uP is aangesloten. We herinneren ons nog 
van boek 1 dat een IRO ontstaat door het nul worden van de HRQ-leiding. 
Nu is het zo dat binnen de PIA een IRO kan ontstaan nadat de timer-vlag 
of de PA7 vlag 1 is geworden (geset). ‘Kan’, omdat de interrupt-mogelijk- 
heid kan worden geblokkeerd. Net zo als de instrukties SEI en CLI de 
l-vlag beïnvloeden (IRQ al dan niet gevolgd door interrupt-routine) bepaalt 
de toestand van de adreslijn A3 het al dan niet mogelijk zijn van een nivo- 
verandering van de IRO-lijn via de timer-vlag of de PA7 vlag: 

A3 = 1: geen interrupt (HRO) mogelijk via de 6532: 

A3 =@: IRQ via de 6532 (na b7 of b6 = 1) mogelijk. 

Via het programma (SEI of CLI) ís het mogelijk om te beslissen of die IRQ 

vervolgens iets uitricht (interrupt-routine) of niet. Dus als er gebeld wordt 

(LRO-lijn wordt laag) hoeft er nog niet automatisch worden “opengedaan” 

(IRO-routine). 

Tot slot van deze terreinverkenning een resumerend overzicht. Er is een 

aftelmechanisme voorhanden. De tijd die verstrijkt tussen het schrijven van 

data in het timer-dataregister en het 1 worden van de timner-vlag is op twee 
manieren te beïnvloeden: door de keuze van de deelfaktor en door de 
keuze van de waarde van de ingeschreven data. Zowel de timer-vlag als de 

PA7-vlag kunnen bij het 1 worden ervan een IRQ veroorzaken en daardoor 

de afwikkeling van een interrupt-routine forceren. De IRQ-mogelijkheid 

kan echter ook worden geblokkeerd. Tijdens het lezen en schrijven van 
data in het timer-dataregister is de timer-vlag altijd gereset, nul. 


Het programmeermodel van de interval-timer: de timer-mode 


Na de algemene beschrijving van de interval-timer (figuur 11) volgt nu de 

beschrijving van zaken die de software-kant van de interval-timer betreffen. 

De nadruk komt nu te liggen op allerlei registers en hun adressen, en op 

het programmeren van die registers. Zie het overzicht van figuur 12. 
De interval-timer bezit een timer-dataregister, dat op acht verschil- 
lende adressen (tijdens lezen of schrijven) kan worden bereikt. Die 
acht heeft alles te maken met de vier verschillende deelfaktoren en 
met de keuze: IRQ mogelijk of niet. Voor de programmeur komen die 
acht verschillende adressen op hetzelfde neer als op acht geheugen- 
plaatsen, te weten CNTA, CNTB, CNTC, CNTD, CNTE, CNTF, CNTG 
en CNTH (zie figuur 12, tabel 1 en de toelichting daarbij). | 

2. De inhoud van al deze timer-dataregisters kan worden gelezen (LDA, 
LDX, LDY) en worden beschreven (STA, STX, STY). | 
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disable timer — IRQ deetfaktor: naam en adres: 


CNTA = 1AF4 


IRO-lijn: 1 us 
CNTB = 1AF5 


| 


CNTC = 1AF6 


time out 


CNTD = 1AF7 


enable timer — IRQ CNTE = 1AFC 


ERQ-lijn: 71 us 
CNTF = 1AFD 


Ce] CLK64T CNTG =1AFE 
CNTH = 1AFF 


CLKIKT 


vlaggen: vlagregister: naam en adres: 


timer-vlag ROFLAG = 1ADS 


PA7 — vlag 


Ee flank: naam en adres: 


{ Xx XXXXX XX EDETB = 1AES 
me 
enable PAT — IRQ } Xx XXXXX XX EDETC = 1AE6 


1 
IROdijn | if EEEEEEEEN Xx xXXXXXX EDETD = 1AE7 
kadeni IRG- 





80915-6-12 


Figuur 12. Het programmeermodel van twee onderdelen van de PIA: de interval-timer 
(timer-mode) en de flankdetektor (PA7-mode). Binnen de beide genoemde modes 
zijn ook weer twee modes mogelijk: de polling-mode (HRO-lijn blijft hoog) en de 
IRQ-mode. De achtergrond van de diverse adressen vindt men in tabel 1, op pagina 89. 


2a, Zowel het lezen als het schrijven van CNTA ... CNTH beïnvloedt de 
keuze uit de acht aftelmogelijkheden. (Dat gaat via het bij het lezen en 
schrijven betrokken signaal R/W, zie figuur 11). De schrijf- of lees- 
operatie die als laatste heeft plaatsgevonden in het programma bepaalt 
welke van de acht mogelijkheden gekozen wordt. Zoals we zullen zien 
maakt het daarbij wél wat uit of het om schrijven of lezen ging. 
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3. Bijelk timer-dataregister hoort een bepaalde deelfaktor: 
CLK1IT: deelfaktor 1; CNTA en CNTE 
CLKST: deelfaktor 8; CNTB en CNTF 
CLK64T: deelfaktor 64; CNTC en CNTG 
CLKIKT: deelfaktor 1024; CNTD en CNTH 
De deelfaktor bepaalt het aantal klokpuisen per verlaging met één van 
het betreffende timer-dataregister. 

3a. Timer-mode. De acht mogelijkheden volgens de voorgaande pun- 
ten 1... 3 horen bij de timer-mode, dat wil zeggen het gebruik van de 
PIA als afteller, als een soort software-zandloper, onder gebruik- 
making van de interval-timer. Naast de timer-mode kennen we, zoals 
figuur 12 laat zien de PA7-mode (flankdetektie), die verderop in dit 
hoofdstuk zal worden besproken. 
De timer-mode kent (net als de PA7-mode) zélf ook weer twee ver- 
schillende modes: de polling mode, waarbij een IRQ niet mogelijk is, 
en de /RO-mode, waarbij dat wel mogelijk is. De polling mode geldt 
voor CNTA ... CNTD, de IRO-mode voor CNTE CNTH. In de 
polling-mode is het lezen van het vlagregister essentieel (RDFLAG = 
1ADS5), in de [RO-mode bepaald niet. 

(punten 4 en 5: het verschil tussen CNTA ... CNTD en CNTE …. CNTH) 


4. Polling mode. Na het schrijven of lezen van één van de registers 
CNTA...CNTD via de uP (dus via een load- of store-instruktie) wordt 
de interval-timer gestart. De timer-vlag b7 is daarbij automatisch gereset, 
nul gemaakt. De IRO-leiding is dan logisch 1. Het schrijven of lezen van de 
inhoud van CNTA ... CNTD kan nooit tot een IRO leiden; de timer-vlag 
wordt geset (1) na de time out. 
5. /RO-mode. Na het schrijven of lezen van één van de registers 
CNTE...CNTH via de uP (dus via een load- of store-instruktie} wordt 
de interval-timer gestart. De timer-vlag wordt direkt na het schrijven 
gereset en de IRO-lijn is ‘hoog’, logisch 1. Na de time out wordt de 
timer-vlag 1 en de IRO-lijn verandert van 1 in @: er is een interrupt-request 
IRO. Dat kan leiden tot de afwikkeling van een 1RQ-routine mits de l-vlag 
van het uP-statusregister gereset is, na de uitvoering van de instruktie CLI. 
In het algemeen geldt dat het lezen van een timer-dataregister een moment- 
opname is: op het moment van lezen is de beginwaarde van de data een 
aantal keren met 1 verlaagd. 
Een voorbeeld. Het timer-dataregister CNTG (deelfaktor 64, IRQ mogelijk) 
wordt gebruikt voor aftellen. De beginwaarde (time offset) is 1E, decimaal 
30. De tijd die verloopt tussen het schrijven van 1E in CNTG en het 1 
worden van de timer-vlag en de geboorte van een IRO is gelijk aan 
30 x 64 +1 = 1921 us. Hoe gaat het allemaal in zijn werk? 


_ IROQMOD (door de schrijfoperatie wordt CNTG 


(CLI) aktief; de inhoud ervan is vlak voor 

LDA IMM 1E het aftellen 1E) 

STA-CNTG ui. a en t=@ 
. (tussen STA-CNTG en LDA-CNTG kan de 
. HP zijn eigen gang gaan) 


© 
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LDACNTG:. aaneen t=1152 us 
. (nog 769 us te gaan) 
’ (tussen LDA-CNTG en de IRQ kan de uP zijn eigen 
° gang gaan) 
de Erdee re vann dani beende t= 1920 us 
("uw tijd is over’: time out) 
IRO Ors hek eed ed t=1921 us 
(uP springt naar interruptroutine) | 
routine 
RTI (vanaf nu kan de uP onafhankelijk van 
. de timer verder) 
: (A = A4 = 19199190 = —-92 decimaal) 
CDAENTG aaneen ee sa vk t= 2013 us 
E (sinds de interrupt zijn 
: 92 us verlopen) 
® (verlaging van de inhoud van 
. CNTG met 1 om de 1 us) 
enzovoorts. ; 


N.B. In dit voorbeeld duurt de interrupt-routine korter dan 92 us. 


6. Polling mode. "Polling is een engelse kreet die zoveel als “enquête” 

betekent. In de computer-betekenis van het woord en, nog meer 
specifiek, de junior-computer-betekenis van het woord wordt daarmee het 
op regelmatige (periodiek) of onregelmatige tijdstippen lezen van de 
inhoud van een timer-dataregister met de bedoeling na te gaan of er al 
sprake is van een time out. Hoe kun je dat nagaan? Door de toestand van 
de timer-vlag te bekijken, dus door het vlagregister te lezen (RDFLAG). De 
timer-vlag is immers 1 geworden na een time out! 

De polling mode van de interval-timer heeft zoals gezegd uitsluitend 

betrekking op het gebruik van CNTA ... CNTD. Aangezien het bij deze 

"!registers’’ onmogelijk is om een [RQ te maken na de time out is het enige 

kriterium voor een time out de toestand van de timer-vlag, niet de toestand 

van de IRO-leiding. 

Bij de test van de toestand van de timer-vlag door het gebruikerspro- 

gramma en het afhankelijk daarvan verder gaan in dat programma (voor- 

waardelijke sprongen) kan de instruktie BIT zeer nuttige diensten vervullen. 

Deze instruktie is er in Junior-computer 1 kwa bespreking wat bekaaid 

afgekomen. We herstellen hier en nu de schade: 

BIT. Uitvoering ervan heeft tot gevolg: 

1. de inhoud van de accu wordt bit voor bit geAND met de inhoud van 
geheugenplaats M. De oorspronkelijke accu-inhoud blijft behouden, net 
zo als dat bij de instruktie CMP het geval is. De operand van BIT bevat 
adresinformatie van M. De instruktie kent absolute en pagina-nul- 
adressering. 

2. M; > N. Het meest linkse bit b7 van M bepaalt na afloop van de instruk- 
tie de toestand van de N-vlag, beïnvloedt dus de toestand van het 
processor-statusregister P. 
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3. Ms >V. Het op één na meest linkse bit b6 van M bepaalt na afloop van 
de instruktie de V-vlag (overflow- vlag), die eveneens deel uitmaakt van 
het processor-statusregister P. 

Het vlagregister van de interval-timer heet RDFLAG (zie figuur 11). Bit 7 

is de timer-vlag, bit 6 de PA7-vlag. Gezien de bovenstaande mogelijkheden 

van BIT kan in een programma op de volgende manier met een voor- 
waardelijke spronginstruktie na het lezen van het timer-vlagregister tot een 
sprong worden besloten: 

a. toestand timer-vlag relevant (timer- en polling-mode): 

BPL: spring als N = timer-vlag = @ 
BMI: spring als N = timer-vlag = 1 

b. toestand PA7 vlag relevant (PA7- en polling-mode): 
BVC: spring als V = PA7 vlag = d 
BVS: spring als V = PA7-vlag = 1 

Na dit BIT-uitstapje nog even de puntjes op de i voor de polling mode. De 

‘‘dataregisters’” CNTA ... CNTD worden beschreven, waarna het aftellen 

begint. Noch het lezen, noch het schrijven van CNTA .. . CNTD kan een 

RO opwekken. De timer-vlag is gedurende het aftellen nul. Pas 1 us na een 

time out wordt de timer-vlag geset, 1. Het lezen van CNTA ... CNTD vóór 

een time out geeft een inhoud van het register die in overeenstemming is 
met de nog resterende tijd tot de time out. 

Ook voor de polling mode zullen we nu een voorbeeld geven: 


POLMOD 


LDA IMM 1E 
STA-CNTC (timer offset = 1E = dertig) 
eral JE an Dt en an ad t=@ 
(uP onafhankelijk van timer) 
LDA-CNTC (A = BC; nog geen time out) 
kr ir at Nea etri dean a en de À t=1152 us 
. (nog 769 us te gaan) 
(uP onafhankelijk van timer) 
ENEN nh a teh an t= 1921 us 





enzovoorts 
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Het vlagregister wordt met de instruktie BIT en een aansluitende BPL 
periodiek bekeken. Een BIT duurt 4 klokpulsen, dus 4 us. Een BPL duurt 
bij springen 3 us. Er wordt dus om de 3 us gekeken of de timer-vlag 1 is 
geworden (wat niet meer tot een sprong via de BPL leidt). Na 1921 us is de 
timer-vlag 1 geworden. De POLL-wachtlus wordt dus verlaten na 1924 à 
1928 us, afhankelijk van de fase van de wachtlus op het moment dat de 
timer-vlag wordt geset en van het tijdstip waarop het label POLL in het 
programma is bereikt. Ook nu verandert de inhoud van CNTC na de time 
out om de 1 us. | 
7. Van IRO-mode naar polling mode en omgekeerd. De interval-timer 
kent een interrupt-mode en een polling mode, hebben we gezien. Het 
is vaak handig om van de ene mode op de andere mode om te schakelen 
zonder de timer opnieuw te starten via een schrijfoperatie. Wel, dat kan. 
Tenminste: zolang er nog geen time out is geweest. 
De omschakeling van de ene mode naar de andere kan plaatsvinden door 
een leesoperatie. Deze kwestie is al even aan de orde geweest in punt 2a en 
we komen er in punt 8 ook nog op terug. 
Eerst een voorbeeld. Stel, de interval-timer werkt in de polling mode. Dus 
dén van de ‘geheugenplaatsen’ CNTA . .. CNTD is aan bod, We kunnen 
nu omschakelen naar de IRO-mode door één van de “geheugenplaatsen” 
CNTE ... CNTH te lezen. Het geeft niet welke van de vier wordt gelezen. 
Het gaat in zoverre om een omschakeling dat de blokkade op de IRO- 
mogelijkheid nu is opgeheven. De tijdens de laatste schrijfoperatie opge- 
geven deelfaktor blijft echter ongewijzigd. 
Hoe gaat het in de praktijk? Het gebruikersprogramma kan op een gegeven 
relevant moment (vóór de time out!) de volgende drie instrukties bevatten: 


PHA inhoud accu naar stack 
LDA-CNTE schakel om van polling-mode naar IRQ-mode 
PLA herstel programma-waarde van de accu 


De operand van LDA had zoals gezegd ook CNTF, CNTG of CNTH 
kunnen zijn. Het omschakelen had ook anders gekund via een teesoperatie. 
Stel dat het X- of het Y-register in de relevante fase van het gebruikers- 
programma geen dienst doet. De instrukties PHA en PLA zouden dan 
komen te vervallen; het omschakelen zou dan gaan met een LDX-CNTE of 
een LDY-CNTE (of -CNTF of -CNTG of -CNTH). Waar het om gaat is dat 
het signaal R/W, dat een bepaald nivoverloop kent tijdens het lezen, daad- 
werkelijk dat verloop heeft. Een en ander in kombinatie met eén van de 
vier adressen die horen bij de andere mode binnen de timer-mode 
(figuur 12). 

We kunnen uiteraard ook vóór de time out overschakelen van de IRQ-mode 
naar de polling-mode. Dus alsnog de IRO-mogelijkheid blokkeren. Het zal 
duidelijk zijn dat nu een van de ‘geheugenplaatsen’ CNTA...CNTD 
moet worden gelezen; het geeft niet welke van de vier. Ook nu blijft de 
tijdens de laatste schrijfoperatie opgegeven deelfaktor ongewijzigd. 
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Het verschil tussen lezen en schrijven. 

a. Het lezen van CNTA ... CNTH: 

— via een leesoperatie komt het programma aan de weet wat de inhoud 
van het timer-dataregister is op het moment van de leesoperatie; 

— het lezen van CNTA ...CNTD zorgt ervoor dat er sprake is van de 
timer-mode en van de polling-mode. Na de time out treedt geen ver- 
andering op van de IRO-lijn. Wel wordt 1 us na de time out de timer- 
vlag 1; 

— het lezen van CNTE ... CNTH zorgt ervoor dat er sprake is van de 
timer-mode en van de IRQ-mode. Na de time out, 1 us later, wordt de 
timer-vlag 1 en de IRO-lijn verandert van 1 in @. Dat kan leiden tot de 
afwikkeling van een IRO-routine; 

— de deelfaktoren 1, 8, 64 en 1024 worden vastgelegd door een schrijf- 
operatie aan CNTA...CNTH. Het lezen van CNTA...CNTH ver- 
andert de deelfaktor niet; 

— lezen na een time out zorgt ervoor dat de timer-vlag wordt gereset (0). 
In de IRQ-mode wordt tevens de IRO-lijn in de ruststand, 1, terug- 
gezet. In de IRO-mode wordt de timer-vlag níet gereset als de IRQ heeft 
geleid tot een IRO-routine en als het lezen zich tijdens deze routine 
afspeelt. | 

b. het schrijven in CNTA ... CNTH: 

— een schrijfoperatie in CNTA ... CNTD zorgt ervoor dat de interval- 
timer start in de polling-mode. De keuze uit CNTA ... CNTD bepaalt 
tevens de deelfaktor tot en met de time out; 

— een schrijfoperatie in CNTE ... CNTH zorgt ervoor dat de interval- 
timer start in de IRQ-mode. De keuze uit CNTE . . . CNTH bepaalt 
tevens de deelfaktor tot en met de time out. 

— een schrijfoperatie in CNTA ... CNTG gaat altijd gepaard met het 

resetten, nul maken van de timer-vlag. 


Tot zover de bespreking van de interval-timer en het gebruik ervan (timer- 
mode). Nu vóór de praktijk nog één stukje teorie. De teorie van de flank- 
detektie (PA7-mode). 


Flankdetektie: de PA7-mode van de PIA. 


Aktie na een nivo-verandering 


Het “blok’’, genaamd flankdetektor heeft dén ingang en één uitgang. De 
ingang is poortlijn PA7, die vooraf als ingang moet worden geprogram- 
meerd. De uitgang is de IRQ-leiding die als gevolg van gebeurtenissen aan 
de ingang kan veranderen van het rustnivo 1 in het aktieve nivo nul. Verder 
is er nog een “'software-uitgangssignaal’: bit b6 van het vlagregister 
reageert eveneens op de gebeurtenissen aan de ingang. Er zijn vier ver- 
schillende mogelijkheden tot flankdetektie. In het programmadeel van 
figuur 12 zijn deze terug te vinden in de volgende "geheugenplaatsen: 
EDETA adres 1AE4 \ iiaanad 

EDETB adres 1AE5J PeIng-mode 


EDETC adres 1AEG6 


EDETDadres1AE7 f _IR@-mode 


65 


De vier mogelijkheden horen bij de keuze: polling-mode of IRO-mode en 
bij de keuze: reageren op een overgang van PA7 van 1 naar Ó (negatieve 
flankdetektie) of op een overgang van @ naar 1 (positieve flankdetektie). 
Wat is het nut van die flankdetektie? Figuur 13 geeft twee praktijk- 
voorbeelden. Eén met seriële data-invoer en eén met parallelle data-invoer. 
Serieel ingangssignaal PA7. Via de databus van de junior-computer vindt 
parallel datatransport plaats: één byte tegelijk. Het kan ook serieel. Dus 
niet byte voor byte maar bit voor bit. In figuur 13a is aangegeven hoe het 
logische signaal voor het seriële transport in elkaar zit. Het signaal is 
opgebouwd volgens de zogenaamde ASCII-kode (wat dat precies is komt in 
Junior-computer 3 uitvoerig aan de orde). Het signaal bestaat uit de 
volgende onderdelen: 

1. een startbit 

2. acht databits in de tijdsvolgorde b ... b7 

3. een pariteitsbit 

4. twee stopbits 

Voor elk bit is een zekere tijd toegemeten, de zogenaamde bittijd (t2 in 
figuur 13a). Het startbit vergt (t1) anderhalve bittijd. Voor het PA7- 
verhaal is het van belang te weten dat in rust het signaal “hoog” is (t3 in 
in figuur 13a) en dat de aanwezigheid van een te transporteren byte wordt 


START 
‚ b® 


| 
hj 


STOP 
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1 X 4 bi 
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TLS rs _ TT _ TTT 
seerde I Usg! 
d eene 


7-Bit ASC\I-Cade 


XxX 


ti =15t) = 1.5 bittijd 


tz = bittijd 
tz = minstens 2 bittijden (2 stopbits) ij t 


80915-6-13a 
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EE El IE de ele je B sl 
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‚.b6 = ASCII — Code 
80915-6-13b b7 = data strabe 


Figuur 13. Twee praktijkvoorbeelden van het gebruik van de flankdetektor: 

seriële (a) of parallelle (b) data-invoer op poort A. In beide gevatlen gaat het klaar 
staan van de ingangsdata gepaard met een nivo-verandering van poortlijn PA7, die als 
ingang moet zijn geprogrammeerd. 
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gemeld door een overgang van 1 naar @ aan het begin van het startbit. Dit 
beginmoment moet de computer kennen. Als er data (serieel in dit geval) 
moet worden binnengehaald moet het lopende werk (programma) worden 
onderbroken voor het binnenhalen ervan; er moet een interrupt-routine 
worden afgewerkt. Om precies te zijn: een HRO-routine, want een IRQ kan 
worden geblokkeerd. Niet altijd is de computer geïnteresseerd in nieuwe 
ingangsdata. Vandaar de noodzaak tot de blokkade-mogelijkheid. 

Hoe zou de junior-computer het probleem aanpakken, of juister, hoe gadt 

hij het (in Junior-computer 3) aanpakken? Heel eenvoudig: 

1. Poortlijn PA7 wordt als ingang geprogrammeerd en door het adresseren 
van EDETA of EDETC (zie figuur 12) is PA7 gevoelig voor een over- 
gang van 1 naar ®. Kan dus de aanwezigheid van een startbit vaststellen; 

2. Er wordt anderhalve bittijd gewacht, waarna PA7 wordt gelezen: bit b@ 
is B of 1. Daarna wordt één bittijd gewacht en weer gelezen: bit b1 is 
bekend. Dat herhaalt zich voor b2, b3, b4, bb, b6, b7 en het pariteits- 
bit: 

3. De nu volgende twee stopbits kunnen worden herkend en geïdenti- 
ficeerd. Voor de junior-computer is dat een kwestie van nagaan hoeveel 
keer er anderhalve of een bittijd is gewacht. Het seriële signaal is ge- 
durende minstens twee bittijden “‘hoog’’. 

4, Het wachten is nu op het volgende binnen te halen byte. 

N.B. Het pariteitsbit is nodig om na te gaan of er tijdens het transport geen 

dataverminking heeft plaatsgevonden. Details hierover komen in boek 3 

uitvoerig aan de orde. 

Parallelle data-invoer via poort A. In figuur 13b is aangegeven dat data- 

invoer ook parallel, dus poort-breed (8 bits) plaatsvinden kan. Ook nu lopen 

we vooruit op boek 3: de aansluiting van een ASClil-toetsenbord op 
poort A. De bits b® . .. b6 geven op elk moment de ASCII-code weer van 
een over te zenden teken (letter, cijfer of leesteken). Bit 7 hoort bij een 

lijn die op PA7 is aangesloten en die een korte "strobe-puls” (van @ naar 1 

en dan weer gauw terug) voert. Wordt PA7 op positieve flankdetektie 

geprogrammeerd, dan kan een nieuw byte worden gemeld via die “strobe- 
puls'” zodat dat byte vervolgens via een leesoperatie op poort A kan 
worden binnengehaald. 


Al met al is aan de hand van twee praktijkvoorbeelden aangetoond dat 
flankdetektie niet zo maar een leuke ‘spielerei’ is, maar een praktische 
en dus zinvolle zaak. 


Het programmeermodel van de flankdetek tor 


De vier “geheugenplaatsen” EDETA, EDETB, EDETC en EDETD en hun 
adressen hebben we al even kort leren kennen; ze zijn ook in figuur 12 
terug te vinden. Door het beschrijven van eén van de vier adressen krijgt de 
flankdetektor te horen of hij op een positieve of op een negatieve flank 
moet reageren, en of hij een IRQ mag uitlokken of niet. Zoals al eerder 
opgemerkt is bit b6 van het vlagregister, de PA7-vlag gevoelig voor de 
situatie vóór en na een optredende positieve of negatieve flank. Voor het 
optreden van de logische nivo-verandering op PA7 is de PA/-vlag nul 
oftewel gereset, direkt erna is hij geset, 1 geworden. In de HRQO-mode 
(EDETC en EDETD) gaat de nivoverandering op PA7 tevens en tegelijker- 
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tijd gepaard met het laag worden van de IRO-lijn. Dat laatste kan de 

afwikkeling van een IRO-routine tot gevolg hebben, afhankelijk van de 

vraag welke van de instrukties CLI en SEI als laatste door het programma 
werd "tegengekomen’’. 

Hoewel de PA7-vlag zich gehee/ onafhankelijk van de timer-vlag gedraagt 

zijn er treffende overeenkomsten in gedrag tussen de twee: 

— de timer-vlag wordt automatisch 1 (1 Hs) na een time out. Een IRQ kan 
door de programmeur worden verboden (polling-mode). Mag dat wel 
(IRQ-mode), dan veranderen de timer-vlag en de IRO-lijn op hetzelfde 
tijdstip van nivo: de timer-vlag van B in 1, de (RO-lijn van 1 in g. 

— de PA7-vlag wordt automatisch 1 na een positieve of negatieve flank op 
PA7. Een IRO kan door de programmeur worden verboden (polling- 
mode). Mag dat wel (IRO-mode), dan veranderen de PA7-vlag en de 
[RO-lijn op hetzelfde tijdstip van nivo. 

In de polling-mode (EDETA of EDETB) is het lezen (bekijken) van het 

vlagregister (RD FLAG; adres 1AD5) essentieel (in de IRQ-mode niet). Dat 

kan bijvoorbeeld gebeuren met de eerder in dit hoofdstuk behandelde 
instruktie BIT: 


BIT-RDFLAG test de PA7 vlag AAT MEAG 
BVS spring als PA7 = 1; zonee: wachten d: ks OG 


* 
« 


Hoe wordt de keuze uit EDETA ... EDETD gemaakt? Door één van de 
vier te beschrijven. De data mag daarbij willekeurig zijn. Het schrijven in 
EDETA of EDETB (polling mode) heeft tot gevolg dat het 1 worden van 
de PA7-vlag niet gepaard gaat met een IRQ. Het schrijven in EDETC of 
EDETD (HRO-mode) heeft tot gevolg dat het 1 worden van de PA7-vlag 
wel gepaard gaat met een IRO. Alle vier mogelijkheden nog even op een 
rijtje gezet: 


STA-EDETA of 
STX-EDETA of 
STY-EDETA 


STA-EDETB of 
STX-EDETB of 
STY-EDETB 


L 
E 
STA-EDETC of r 
$ 


1.PA7 vlag 1 na 1/9 op PA7 
2, geen IRQ als PA7 vlag 1 wordt 


_—Ò 


‚PA7-vlag 1 na @/1 op PA7 
2. geen IRQ als PA7-vlag 1 wordt 


sm 


.PA7-vlag 1 na 1/6 op PA7 
„RO als PA7-vlag 1 wordt 


N3 


STX-EDETC of 
STY-EDETC 


STA-EDETD of 
STX-EDETD of 
STY-EDETD 


md 


.PA7 vlag 1 na @/1 op PA7 
‚IRO als PA7-vlag 1 wordt 


NJ 
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PIA-varia 


Diverse “weetjes” 


Doublures. Het vlagregister, dat bereikbaar is op RDFLAG, vervult nuttige 

diensten voor de interval-timer en voor de flankdetektor. Bit b/ als timer- 

vlag, bit b6 als PA7-vlag. In het geval van de mogelijkheid tot een IRO 

(IRQ-mode) wordt op een gegeven moment de IRO-leiding nul. Bevindt de 

KP zich als gevolg daarvan vervolgens in een IRO-interrupt-routine, dan 

moet de IRO-lijn weer “gereset”, Î worden teneinde te voorkomen dat 

nadien dezelfde interrupt request tot stand komt. Er moet als volgt te 
werk worden gegaan: 

a. {RO via de interval-timer. De IRQ ontstaat 1 mikrosekonde na de time 
out. Nemen we aan dat dit tot de afwikkeling van een IRQ-routine 
aanleiding geeft. Het begin van de routine moet zich bezig houden met 
het resetten van de IRO-lijn. Na de afsluitende RTI van de HRO-routine 
kan deze timer-IRQ niet opnieuw tot stand komen. Het weer 1 maken 
(“resetten’’)} van de /R@-leiding gebeurt via een lees- of schrijfoperatie 
rond één van de “geheugenplaatsen” CNTA ...CNTH. Door zo'n 
schrijfoperatie staat de interval-timer klaar voor een nieuwe aftellerij. 
Dat hoeft niet perse met een IRQ gepaard te gaan. Bij een leesoperatie 
wordt niet opnieuw gestart, maar wel de timer-vlag gereset en de IRO- 
lijn 1 gemaakt. 

b. /RQ vía de flankdetektor. Ook nu nemen we aan dat een interrupt- 
routine wordt afgewikkeld. Tijdens het afwikkelen van deze routine 
moet ook nu de IRC-lijn weer 1 worden gemaakt. Dat IRO weer 1 
maken, en het resetten van de PA7-vlag gebeurt door een leesoperatie 
van RDFLAG, dus door in de interrupt-routine één van de volgende 
instrukties op te nemen: 1) LDA-RDFLAG; 2) LDX-RDFLAG: 
3) LDY-RDFLAG. 


1RO-sprongvektor. De opcode van de eerste instruktie van de IRO-routine 
ligt op het adres dat wordt aangewezen door de (RO-sprongvektor, die is 
gespecificeerd in de geheugenplaatsen 1A7E en 1A7F. Dat zijn geheugen- 
plaatsen in (PIA-)RAM. De inhoud van deze plaatsen kan dus worden 
gewijzigd, hetzij tijdens het programma, hetzij tijdens een interrupt-routine. 
De junior-computer kan door het lezen van het vlagregister (RD FLAG) aan 
de weet komen of het een timer-IRQ of een PA7-IRQ routine was en kan 
aan de hand van deze informatie in 1A7E en 1A7F het startadres van een 
timer-interrupt-routine of een PA7-interrupt-routine laden. Hij moet daar 
dan natuurlijk wel de gelegenheid voor hebben, door de IRQ tijdelijk te 
blokkeren: 


SEI 
STA-IROL (1A7E) 


STA-IRQH (1A7F) 
CLI 


Resetleiding RES. Zoals beschreven in Junior-computer 1 is het signaal 
RES er voor het opstarten van de junior-computer. Het wordt opgewekt na 
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het indrukken van de toets RST en leidt — zoals in hoofdstuk 7 is te 

lezen — tot de sprong naar het monitorprogramma. Het signaal RES is 

echter ook op de 6532-PIA aangesloten. Ook binnen de PIA wordt voor 
een beginsituatie gezorgd: 

1. De inhoud van alle vier registers wordt G60G GOGH gemaakt. Dat 
betekent dat alle acht poortlijnen als ingang zijn geschakeld. De interne 
databus wordt tevens geïsoleerd van de externe databus. 

2. De IRQ-mogelijkheden via de interval-timer en de PA7-flankdetektor 
zijn geblokkeerd, Dit om te voorkomen dat een IRQ ontstaat voordat 
de IRO-sprongvektor is gespecificeerd. 

3. PA7 wordt geprogrammeerd op negatieve flankdetektie. Het kan echter 
gedurende een reset voorkomen dat een op PA7 aangesloten apparaat 
per ongeluk de PA7-vlag 1 maakt. Daarom is het zaak om voordat de 
flankdetektor wordt gebruikt de PA7-vlag te resetten door middel van 
een leesoperatie van RDFLAG. 


Dat was de teorie. Nu de praktijk. De muzikale praktijk. Het is de 
bedoeling dat, met behulp van een programma en het toetsenbord van 
figuur 5a een melodie aan de junior-computer wordt opgegeven en dat, 
met behulp van een ander programma, deze melodie weer ten gehore kan 
worden gebracht. We gaan dus een soort “software-bandrecorder” 
bespreken. Er wordt gebruik gemaakt van de interval-timer in de PIA. De 
beide programma’s zullen nu worden besproken. Er zal soms verwezen 
worden naar de al besproken voorbeeldprogramma’s DEMO en PLAY. 


Het programma INPUT 


Opname drie tellen na nu 


Het programma INPUT moet ervoor zorgen dat een met het toetsenbord 
van figuur Sa ingegeven melodie wordt opgeslagen in het geheugen van de 
junior-computer, zodat het later, met behulp van het nog te bespreken 
programma REPEAT weer kan worden opgehoest. 

Het gaat om een. monofone melodie: telkens gén toon tegelijk. Van elke 

toon moet de toonhoogte worden vastgelegd en de tijdsduur van de toon. 

Voor elke toon van de melodie moeten dus twee geheugenplaatsen worden 

gereserveerd. Eentje voor de toonhoogte (de geheugenplaats bevat de 

toetswaarde van de ingedrukte toets) en een voor de tijdsduur van de toon 

(de geheugenplaats bevat informatie over de stand van de interval-timer: 

dd...FF). 

De geschetste opzet vertalen we nu in een aantal konkrete aspekten van 

het programma INPUT: 

1. (meeluistermogelijkheid) Tijdens de "'opname”’ moet de opgegeven toon 
in de luidspreker hoorbaar zijn (zie de schakeling van figuur 5a). 

2. Tegelijkertijd moet de tijdsduur van de ingedrukte toets worden 
bepaald. De computer kan atleen maar twee dingen tegelijk doen 
(punt 1 en punt 2) als gebruik wordt gemaakt van interrupt-program- 
meertechnieken. 
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3. Bij elke toets hoort een bepaalde toetswaarde. Die wordt bepaald met 
de al besproken subroutine KEYVAL (figuur 6). 

4. Het toetsenbord moet worden onderzocht op een ingedrukte toets. 
Voor toetsdetektie wordt gebruik gemaakt van de al besproken sub- 
routine KEYIN (figuur 8a) en voor de toetsdenderonderdrukking van 
de subroutine DELAY (figuur 8b). 

5. Na het loslaten van de toets moet er doodse stilte uit de luidspreker 
komen; verder moeten de tijdsduur en de waarde van de ingedrukte 
toets worden opgeschreven in het RAM-geheugen. Dit zogenaamde 
melodiegeheugen omvat de adressen @108 ... @1D8 op pagina Ó1. Dat 
zijn 217 geheugenplaatsen. Er kunnen dus 108 tonen worden opge- 
nomen. Zodra het melodiegeheugen vol is moet er naar de monitor 
worden gesprongen en verdere ingedrukte toetsen worden genegeerd. 

6. Het melodiegeheugen moet voóor het intoetsen van de melodie met de 
waarde 77 worden gevuld. Het hogere doel dädrvan zal u nog worden 
geopenbaard. 

7. Het melodiegeheugen wordt afwisselend met toetswaarden en tijdsduur- 
data gevuld. 

Een voorbeeld van wat in punt7 is gezegd: Na het achtereenvolgens 

indrukken van de toetsen 9, A, B en C ziet het melodiegeheugen er zo uit: 


B19d do toetswaarde | 
101 WW (WW=gg...FF) tijdsduur toets 9 maban dln wc mm AL pd 
0102 GA toetswaarde 

B103 XX (XX =0P...FF) tijdsduur toets A 
9194 BB toetswaarde wyuwken pe Ee 
0105 YY (YY =09...FF) tijdsduur toets B 

G106 PC toetswaarde 

0107 ZZ (ZZ=08.,..FF) tijdsduur toets C 

9198 77 opvulteken ("'fillup character’’} 

G199 77 opvulteken 


ie 


EÀ a wid 


Mij 


n heer iN De EE 
On Odd hit 
ï 


ÓID7 77 laatste plaats voor een volledig vastgelegde toon 
Ö1D8 77 laatste plaats van melodiegeheugen 


Het eigenlijke INPUT-programma 


Het INPUT-programma is te zien in de figuren 14a en 14b; de figuur is 
vanwege de afmetingen in tweeen gesplitst en de ’minilabels’” met daarin a 
en b vormen de doorverbindingen tussen de beide helften. 

Figuur 14a begint met een SEI. Daardoor is de afwikkeling van een IRQ- 
routine in deze fase van het programma door de uP geblokkeerd. De 
daaropvolgende instrukties houden zich bezig met het specificeren van de 
IRO-sprongvektor op de geheugenplaatsen 1A7E en 1A7F; dat is het 
startadres van de nog te bespreken interrupt-routine IRQOIN (1A20; zie 
figuur 15a). 

Alle nu volgende instrukties van figuur 14a tot aan het label KEYSCN 
staan in het teken van de algemene voorbereiding. Eerst worden precies als 
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78 blokkeer interrupts 
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A9 | LDA #24 
IRQ-sprongvektor = 
8D | STA -IRQL |1A7E 
Ag LDA #1A startadres interrupt- 
S 1A7E toutine IRQIN 

8D TA — IRQH 

LDA #FG nn (1A20} 
Ee adn, PA? ...PA4 uitgang 
8D EADE — PADD {1481 BAAS ERd inne 

a LDA #01 | 

En ee PB7 ...PB1 ingang 
8D | STA — PBDO | —-PBDOD [1483 PBG uitgang 
0 Ene: hABZ Luidspreker uitgeschakeld 






8D [STA — NOTEN 


LDY — dj 
STV — NOTEL 


GIDD NOTEN #1 







ven ED sw 


1A88 PA7.,..PA4 bl 
B9DC NOTEL +gg 








ESEE 







LOY # D8 Y-08 
84 STY -ENDt|GGDF ENDL DB 
LDA #77 A77 





ROW * $90D9 

KEY * $O0DA 

TEMPX _* $00DB 

SE 27 pi NOTEL _ * S6BDC 
he NOTEH _ * $66DD 
LENGTH _* $90DE 
ENDL * $90DF 





STA — (NOTEL),Y 


DEY 
CPY # FF 






DEL * $1A00 
alle plaatsen 77? 

(ROL * STA7E 

IRQH * $IA7F 


IRGIN * $1A20 
RESET * SIC1D 


CNTA * SIAF4 


CNTG * SIAFE 
PAD * $1A80 
toets ingedrukt? PADD * $1A81 
PBD * $1A82 
dender-onderdrukking PBDD * $1A83 
toets ingedrukt? 
bepaal toetswaarde 
zet afteller op 49 
begin vanaf FF 
af te tellen 
interrupt mogelijk 
haal toetswaarde op 
80915-6-14a 


Figuur 14 (verdeeld over 14a en 14b). Met het programma INPUT worden ingedrukte 
toetsen van de schakeling van figuur 5a omgezet in hoorbare tonen, net als met het 
programma PLAY van figuur 7 mogelijk is. Bovendien worden de toonhoogte 
(toetswaarde) en de tijdsduur van maximaal 108 achtereenvolgens ingedrukte toetsen 
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DEL: 1AGY SE 


taan ss 
1A82 PBO =9 1A42 7E 
1A49 bepaal hatve periodeduur 1403 77 
1A44 79 
1A95 GA 
1496 64 
1407 SE 
1A48 59 
1449 54 
1AGA 4E 
1AGB 4A 
eerste halve periode klaar? JAGC 47 

1A0D 43 
LOA #41 tASE 3E 


STA — PBO 1482 PBO = 1 1AGF 3C 
LDX —DEL,Y $ 1499 bepaal halve periodeduur 







BE 


wacht 22 us 
XX — 1 


STORE 


BD [ STA —CNTA | 1AF4 blokkeer [RQ 


A5 [LDA — NOTEL| DC A <NOTEL 


C5 CMP — ENDL | ENDL 


ie OS ® maogisgeheugen ver? Co 


98 


1C1D 
Ag LDY es GE JMP — RESET | RESET 


ce IN 
25 oe 
91 DC tijdsduur — pl en 
es E) 

F6 Be NOTE + NOTE + 2 


4C | JMP-—-KEYSCN| 12 wacht op nieuwe toets 


80915-6-14b 


opgeslagen in RAM-geheugen (melodiegeheugen), zodat een aan de junior-computer 
opgegeven melodie met behulp van het programma REPEAT (figuur 16Ga/16b) weer 
zo vaak als men wil ten gehore kan worden gebracht. 
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bewaar accu-programmawaarde 
E6 DE hoog LENGTH met 1 op 
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begin weer vanaf FF 


5D af te tellen 
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68 herstel accu-programmawaarde 





40 
80915-6-15a 



















Figuur 15. De interrupt-routine (RQIN (15a) zorgt er in samenwerking met de 


interval-timer in het programma INPUT van figuur 14a/14b voor dat de tijdsduur van 


de ingedrukte toets wordt bepaald. Figuur 15b laat zien dat het melodiegeheugen 


afwisselend toonhoogte-informatie en tijdsduur-informatie bevat. 


bij PLAY de 16 poortlijnen als uitgang of ingang geprogrammeerd. De 
uitgang PBG wordt 1 gemaakt zodat de luidspreker geen stroom trekt 
tijdens het wachten op een nieuwe ingedrukte toets (zie figuur ba). De 
inhoud van de geheugenplaats NOTEL krijgt de waarde @1 en die van 
NOTEH de waarde @Ó; de hiermee gespecificeerde adreswijzer NOTE staat 
daardoor op de eerste plaats van het melodiegeheugen gericht (zie ook 
figuur 15b). De adreswijzer NOTE staat altijd gericht op de hoogste 


onbezette plaats van het melodiegeheugen. 
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Vervolgens krijgen Y en de inhoud van geheugenplaats ENDL de waarde 
D8; dat is de ADL van de laagste plaats (met het hoogste adres) in het 
melodiegeheugen. Na het laden van de accu met 77, het opvulteken, wordt 
dit opvulteken in alle plaatsen van het melodiegeheugen gezet (programma- 
lus rond het label INA). Is het melodiegeheugen ‘volgespeeld’’, dan staat 
alleen nog op plaats @1D8 77. Alle voorbereidingen zijn nu getroffen. 
En dan begint het eigenlijke programma, vanaf label KEYSCAN. 
(Overigens: het nu volgende programmadeel vertoont vaak grote over- 
eenkomst met het programma PLAY van figuur 7). 
De wachtlus met de subroutine KEYIN (figuur 8a) en de BEOQ wordt 
doorlopen zo lang er geen toets is ingedrukt. Is dat wel het geval dan komt 
de toetsdender-onderdrukking aan de orde: de subroutines DELAY 
(figuur 8b), KEYIN en weer een BEO. Dan volgt de subroutine KEYVAL 
(figuur 6), aan het eind waarvan de toetswaarde van de ingedrukte toets 
in de geheugenplaats KEY (@@DA) staat. Voor het naadje van de kous 
verwijzen we naar de bespreking van PLAY. 
En nu wordt het interessant! De waarde van de ingedrukte toets is bekend 
aan de junior-computer en de bijbehorende toon wordt via de luidspreker 
ten gehore gebracht. Net als bij het programma PLAY het geval was komt 
de junior-computer de hoogte van de te maken toon aan de weet door in 
de opzoektabel DEL te gaan kijken (zie figuur 9). De toonopwekking 
gebeurt in het deel van INPUT na het label TONE; Dit deel (figuur 14b) 
tot aan het label STORE is exakt gelijk aan het overeenkomende deel van 
PLAY. De bespreking ervan dus ook: zie PLAY. 
Maar voordat met TONE begonnen wordt zijn er bij INPUT, hier dus, 
extra voorbereidingen nodig. We zijn dus nog niet helemaal klaar met 
figuur 14a. 
Die extra voorbereidingen beginnen met het @@ maken van de inhoud van 
de RAM-geheugenplaats LENGTH. Die plaats bepaalt uiteindelijk de tijds- 
duur, gedurende welke de toets is ingedrukt. En dan volgt de instruktie 
STA-CNTG, met als gevolg: 
1. De interval-timer start met het aftellen vanaf FF (door de voorgaande 
LDA IMM FF); de timer-vlag wordt gereset, evenals de [RO-lijn. 
2. Een IRQ na de time out is mogelijk (IRO-mode). 
3. Er is gekozen voor een deelfaktor 64. Dat betekent dat na 255 (FF) 
maal 64 plus 1 = 16.321 us de IRO-lijn verandert van hoog in laag. 
De volgende instruktie, CLI, zorgt ervoor dat het laag worden van de IRO- 
lijn ook daadwerkelijk tot de afwikkeling van een IRQ-routine leidt (om 
precies te zijn: de routine IROIN van figuur 15a). Dus dat, als er wordt 
gebeld, ook open gedaan wordt. 
De laatste instruktie van figuur 14a, LDY-KEY, dient ter voorbereiding 
van het programma na het label TONE, voor de toonopwekking. 
We hebben dus nu bereikt dat vrijwel direkt nadat een toets is ingedrukt 
de interval-timer start met aftellen, in het kader van de bepaling van de 
tijdsduur van de ingedrukte toets. De programmadelen na TONE, na TA 
en na TB wikkelen zich af. Ze wikkelen zich periodiek af zolang de toets is 
ingedrukt. En ondertussen telt de interval-timer maar af. 
Telkens na een time out van de timer, dus om de 16.321 us ontstaat een 
interrupt request en wordt vervolgens het interrupt-programma IROIN van 
figuur 15a doorlopen. Gezien ‘het feit dat een toets toch wel een paar 
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sekonden lang moet kunnen worden ingedrukt, waarbij de tijdsduur moet 
worden geregistreerd, en gezien ook het feit dat een time out pakweg om 
de 16 millisekonden plaats vindt, zal het duidelijk zijn dat er gedUIenae 
een ingedrukte toets zeer veel interrupts zullen optreden. 

Telkens na een interrupt (IROIN, figuur 1ba) wordt de inhoud van de 
geheugenplaats LENGTH met eén verhoogd en begint de interval-timer na 
een schrijfoperatie opnieuw vanaf FF af te tellen. 

De inhoud van LENGTH kan varieren van Qd tot FF. De maximale 
tijdsduur van een ingedrukte toets bedraagt dus 255 maal 16.321 = 
4.161.855 us oftewel ruim 4 sekonden. Daarbij is een neutrale tijdsperiode 
(even niet aftellen) gedurende elk verblijf in IRQIN verwaarloosd. Drukt 
men een toets tanger dan 4,16, maar korter dan 8,32 s in, dan wordt een 
kortere tijdsduur in LENGTH vastgelegd. 

We zijn nu toe aan het label STORE van figuur 14b, dat wordt bereikt 
zodra de toets niet meer is ingedrukt. Nu wordt van de ingedrukte toets de 
toonhoogte en de tijdsduur in het melodiegeheugen gezet, in een volgorde 
die is te zien in figuur 15b. 

Aan het begin van STORE bevat KEY de toetswaarde en LENGTH de 
tijdsduur van de ingedrukte toets. Zodra de toets is losgelaten moet het 
hele interval-timer-gebeuren tijdelijk worden opgeschort. Bij de volgende 
ingedrukte toets begint alles dan weer opnieuw. Van essentieel belang 
daarbij is dat tijdelijk wordt overgeschakeld van de IRQ-mode op de 
polling-mode: de IRQ moet worden geblokkeerd. Dat gebeurt met de 
instruktie STA-CNTA. Het had ook STA-CNTB, STA-CNTC of CNTD 
kunnen zijn; dat weten we nog van de voorafgaande teorie van de interval- 
timer. 

De instrukties LDA-NOTEL, CMP-ENDL (ENDL bevat D8) en BEQ gaan 
aan de hand van de stand van de adreswijzer NOTE na of het melodie- 
geheugen soms al vol is geschreven met ingetoetste tonen. Is dat het geval, 
dan volgt de sprong naar het label ST en daarmee de sprong terug naar het 
monitorprogramma: het melodiegeheugen is vol; dat is te vergelijken met 
een tijdens een bandopname volgespeelde band. Alleen kun je nu, bij 
INPUT geen nieuwe band opzetten . 

Indien het melodiegeheugen nog niet ‘vol is kunnen de toetswaarde en de 
tijdsduur van de laatst ingedrukte toets in dat geheugen worden gezet. 
Dat begint met een TYA: de inhoud van het Y-register is bij het verlaten 
van het toonopwekkingsprogramma gelijk aan de inhoud van KEY. Via een 
STA-(NOTEL), Y gaat de toetswaarde naar de plaats in het melodie- 
geheugen die wordt aangewezen door NOTE. Na een verhoging van Y met 
1 (INY) gaat de inhoud van de geheugenplaats LENGTH naar de plaats in 
het melodiegeheugen die wordt aangewezen door NOTE + 1. Na twee 
opeenvolgende verhogingen met 1 van de inhoud van NOTEL staat de 
adreswijzer NOTE klaar voor ontvangst van data van een volgende inge- 
drukte toets. Die wordt behandeld na de sprong terug naar KEYSCN. 


De praktijk van INPUT: solderen en intoetsen 
Nadat de schakeling van figuur ba in elkaar is gezet en aangesloten op de 
poortkonnektor van de junior-computer moet het programma worden 
ingetoetst. We maken daarbij uiteraard gebruik van de editor. Het geheu- 
genbereik omvat de pagina’s @2 en 3 van het werkgeheugen. 
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Het toetsenwerk: 


toetsen: 


RST 
AD 
DA 

+ 

+ 

+ 

AD 
DA 

+ 

AD 
GO 
INSERT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 


mm 
NO 


asana esnees es 
dd 
> 


onp TNS S 


ee) 
Ü1 


FF1009 
7 8 

D8 

A9 20 
8D7EI1A 
A91 A 
8D7FI1A 
A9 FO 


 @ 
Ss Ss 


NJ 
Ln! 
=N N= N= => Tj 
ee a 
Ss 


@ ND 0 ON OON => TN 


202 
A9 00 
85 DE 
Ag FF 
8DFEIN1A 
5 8 

A4 DA 


S 
S 


display: 
XXXK XX 
DZE2 XX 
GOE2 JO | 
ÓGE3 02 
OOE4 FF } 
DES A3 


1A7A XX 


JAJA 51 k 


1A7B 1F 
1CB5 20 
77 

FF 10 90 
78 

D8 

A9 20 

8D 7E 1A 
A9 1A 
8D 7F 1A 
A9 FO 

8D 81 1A 
A9 @1 

8D 83 1A 
8D 82 1A 
85 DD 
AO OO 

8C 80 1A 
84 DC 
AO D8 

84 DF 
A9 77 

FF 11 00 
91 DC 
88 

CÔ FF 
DO 11 

FF 12 00 
20 28 DO 
FO 12 

20 29 GH 
20 28 00 
FO 12 

20 20 00 
A9 00 

85 DE 
A9 FF 

8D FE 1A 
58 

A4 DA 


opmerkingen: 


oproep monitor 


BEGAD wijst op B200 


ENDAD wijst op G3FF 


NMI-sprongvektor = 1F51 
(start assembler met ST) 
start editor 

editor startklaar 

label 1: INPUT 

SEI 

CLD 

LDA IMM 29 
STA-IROL 

LDA IMM 1A 
STA-IRQH 

LDA IMM FQ 
STA-PADD 

LDA iMM @1 
STA-PBDD 

STA-PBD 
STAZ-NOTEH 

LDY IMM 99 

STY-PAD 
STYZ-NOTEL 

LDY IMM D8 
STYZ-ENDL 

LDA IMM 77 

label 11: INA 
STA-(NOTEL),Y 

DEY 

CPY IMM FF 

BNE naar INA (label 11) 
label 12: KEYSCN 
JSR-KEYIN (label 28) 
BEO naar KEYSCN (label 12) 
JSR-DELAY (label 29} 
JSR-KEYIN (label 28) 
BEQ naar KEYSCN (label 12) 
JSR-KEYVAL (tabel 20) 
LDA IMM 99 
STAZ-LENGTH 

LDA IMM FF 
STA-CNTG 

CLI 

LDYZ-KEY 


11 


toetsen: 


INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 


INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 


78 


W =S OS = 
== A GS NGS W 


NN =S 0 == 


OTNAWEPUON nw PT 
DAWN A 


P>ssnmooespPres nmgwo  n 


e 
S 
eà 
o 


FO13 


FF16 0 


8DF4 
A5 DC 
C5 DF 
FO 17 
9 8 

AO OO 
91 DC 
C8 

A5 DE 
91 DC 
E6 DC 
E6 DC 
4AC12 
FF17 


ACID 


FF20 
A9 F7 
85 Dg 
A204 
FF21 
CA 

3020 
6D 
A5 D9 
8D80 
ADS8 O0 
290F 
C9BF 
FO21 
86 DB 


© 
Ld 


eG == = 
SS Pp > 


e= = 
> S SS Pp Pp 


-_ OQ Ss 
OSS 


> > 


display: 


FF 13 
A9 00 
8D 82 
BE 00 
FF 14 
20 31 
CA 

D® 14 
A9 d1 
8D 82 
BE 00 
FF 15 
20 28 
FO 16 
CA 

DÔ 15 
Fô 13 
FF 16 
8D F4 
A5 DC 
C5 DF 
FO 17 
98 

AO 09 
91 DC 
C8 

A5 DE 
91 DC 
E6 DC 
E6 DC 
4C 12 
FF 17 
4C 1D 


FF 20 
A9 F7 
85 D9 
A2 04 
FF 21 
CA 

30 20 
96 D9 
A5 D9 
8D 80 
AD 80 
29 OF 
C9 GF 
F@ 21 
86 DB 


opmerkingen: 


label 13: TONE 

LDA IMM 90 

STA-PBD 

LDX-DEL Y 

label 14: TA 
JSR-EQUAL (fabel 31) 
DEX 

BNE naar TA (label 14) 
LDA IMM 01 

STA-PBD 

LDX-DEL, Y 

label 15: TB 

JSR-KEYIN (label 28) 
BEO naar STORE (label 16) 
DEX 

BNE naar TB (label 15) 
BEQ naar TONE (label 13) 
label 16: STORE 
STA-CNTA 
LDAZ-NOTEL 
CMPZ-ENDL 

BEOQ naar ST (tabel 17) 
TYA 

LDY IMM gg 
STA-(NOTEL),Y 

INY 

LDA-LENGTH 
STA-(NOTEL),Y 
INC-NOTEL 

INC-NOTEL 
JMP-KEYSCN (tabel 12) 
label 17 (ST) 
JMP-RESET; N.B. taatste instruktie 
van INPUT | 

label 20: KEYVAL 

LDA IMM F7 

STAZ-ROW (ddD9) 

LDX IMM @4 

label 21: KEYA 

DEX 

BMI naar KEYVAL (label 20) 
ASLZ-ROW (d4D9) 
LDAZ-ROW (d@D9) 
STA-PAD 

LDA-PAD 

AND IMM GF 

CMP IMM @F 

BEQ naar KEYA (label 21) 
STXZ-TEMPX (ODB) 


toetsen: 


INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
ENPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 


85 DA 
A200 
FF2200 
46 DA 
9023 

E 8 
EGD4 
D®22 
F@20 
FF2300 
A5 DB 
C9 GP 3 
DO 24 

8 A 
4AC2700 
FF2400 
C9 2 
Dg25 

8 A 

1 8 

6 9 B 4 
DO27 
FF2500 
C9 J 1 
Dg 26 

8 A 

1 8 

6 9 B 8 
DQ 27 
FF2600 
C900 
DO 20 
8 A 

1 8 

6 9 PC 
FF2700 
85 DA 
A9 00 
8D801A 
6 @ 
FF2800 
AD801 A 
290F 
490 F 

6 @ 
FF2900 
AO FF 
FF3000 
8 8 


display: 


85 DA 
A2 09 
PE 22 
46 DA 
90 23 
E8 

E® 04 
DO 22 
FO 20 
FF 23 
A5 DB 
C9 03 
Dd 24 
8A 

4C 27 
FF 24 
C9 B2 
DO 25 
8A 

18 

69 J4 
DÓ 27 
FF 25 
C9 d1 
Dg 26 
8A 

18 

69 d8 
DO 27 
FF 26 
C9 09 
D® 20 
8A 

18 

69 BC 
FF 27 
85 DA 
A9 00 
8D 80 
60 

FF 28 
AD 80 
29 OF 
49 OF 
60 

FF 29 
AD FF 
FF 30 
88 


go 


og 


gg 
Gd 


do 


do 


Gd 


1A 


do 
1A 


dg 


0 


opmerkingen: 


STAZ-KEY (GBDA) 

LDX IMM d9 

label 22: KEYB 
LSRZ-KEY (GDA) 

BCC naar ROWA (label 23) 
INX 

CPX IMM 04 

BNE naar KEYB (label 22) 
BEQ naar KEYVAL (label 20) 
label 23: ROWA 
LDAZ-TEMPX (Ó@DB) 
CMP IMM 3 

BNE naar ROWB (label 24) 
TXA 

JMP-KEYC (label 27) 

tabel 24: ROWB 

CMP IMM d2 

BNE naar ROWC (label 25) 
TXA 

GG 

ADC IMM g4 

BNE naar KEYC (label 27) 
label 25: ROWC 

CMP IMM @1 

BNE naar ROWD (label 26) 
TXA 

CLC 

ADC IMM 98 

BNE naar KEYC (label 27) 
label 26: ROWD 

CMP IMM 99 

BNE naar KEYVAL (label 29) 
TXA 

CLC 

ADC IMM gC 

label 27: KEYC 
STAZ-KEY (BGDA) 

LDA IMM 99 

STA-PAD 

RTS 

label 28: KEYIN 
LDA-PAD 

AND IMM GF 

EOR IMM OF 

RTS 

label 29: DELAY 

LDY IMM FF 

label 36: DELA 

DEY 
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toetsen: display: opmerkingen: 


INPUT DO 39 DO 30 BNE naar DELA (label 30) 
INPUT 6 @ 60 _RTS 

INPUT FF3100 FF 31 00 tabel 31: EQUAL 

INPUT EA EA NOP 

INPUT EA EA NOP 

INPUT EA EA NOP 

INPUT EA EA NOP 

INPUT EA EA NOP 

INPUT 6 0 60 RTS 


Nadat INPUT en zijn subroutines zijn ingetoetst kijken we het programma 
nog eens na: 


toetsen: display: opmerkingen: 

SEARCH F F1 9 FF 10 Ód INPUT begint met label 10 
SKIP 78 

SK IP D8 

SKP A9 20 

SKIP 8D 7E 1A 

enzovoorts. 


Alles okay? Assembleer INPUT en de diverse subroutines: 


toetsen display 
ST XXXM XX 


Nu moeten de interrupt-routine IROIN van figuur 1ba en de opzoektabel 
LEN van figuur 9 nog worden ingetoetst. Voor het intoetsen van [ROIN 
maken we gebruik van de editor. Er hoeft niet te worden geassembleerd na 
het editen omdat er geen labels voorkomen in IROIN. Na het editen gaan 
we via toets RST meteen terug naar de monitor: 


toetsen: display: opmerkingen: 
AD E 2 OE 2 


00 XX 
DA 2d OGE2 20 
+ 1 A Ó0E3 ae, A4 AAE | oes 
79 
1 A 
1C 


+ GIE4 79 PIA-RAM 
AD B 5 1CB5 20 koude start editor 

GO 77 editor startklaar 

INSERT 4 8 48 PHA 

INPUT E6DE EG DE INCZ-LENGTH 

INPUT A9 FF A9 FF LDA IMM FF 

INPUT 8 DFE1A 8D FE 1A STA-CNTG 

INPUT 68 68 PLA 

INPUT 40 40 RTI 

RST terugkeer naar monitor 
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Nu nog de opzoektabel LEN van figuur 9 intoetsen: 


toetsen: display: opmerkingen: 
AD 1AGÒ 1AOD XX startadres 1 AG@ 
DA 8 E 1A0D BE 

+ 8 6 1A01 86 

+ 7E 1A02 7E 

+ 17 1A03 77 

+ 70 1A04 70 

+ 6 A 1A05 6A 

+ 6 4 1A06 64 

+ 5E 1A07 BE 

Ei 59 1A08 59 

+ 5 4 1AG9 54 

+ 4E 1AGA 4E 

+ 4 A 1AGB 4A 7 

+ 4 7 TAOC HR 2/4 

+ 4 3 1AGD 43 

+ SE 1AGE 3E 

sE 3 C 1AGF 3C 

Alles wat moest worden ingetoetst is nu ingetoetst. Nou ja ... het pro- 
gramma INPUT moet nog worden gestart. Dat gaat zo: 
AD 0208 GO 


Nu rest nog het intoetsen van muzikale toetsen! Tijdens het opnemen van 

de melodie is al het toetswerk hoorbaar en blijft het display gedoofd. Pas 

nadat het melodiegeheugen is volgespeeld springt het programma terug 

naar de monitor en zijn er weer zes oplichtende displays te zien. 

Nog een paar praktische opmerkingen. Het programma INPUT kan op 

twee manieren worden verlaten: 

1. Indrukken van RST. Waardoor het terug gaat naar de monitor. 

2. Door het volspelen van het melodiegeheugen. De sprong naar de moni- 
tor vindt dan plaats via het programma. 

Na het gebruik van INPUT volgt het gebruik van de nog te bespreken 

REPEAT (anders kan men net zo goed PLAY nemen). Beide programma’s 

moeten tijdens een junior-computersessie worden ingetoetst. Het is zaak 

om de junior-computer níet uit te schakelen na het intoetsen van het pro- 

gramma INPUT. 
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Het programma REPEAT 


Junior-Edison 


Voor de weergave van de tijdens INPUT (“record’') opgenomen melodie 
dient het programma REPEAT (“replay”). Het moet het volgende doen: 


1. 


A. 


De tijdens INPUT in het melodiegeheugen opgeslagen tonen moeten 
worden weergegeven in dezelfde volgorde als die waarin ze zijn “opge- 
nomen”. Er moet voor de toonhoogte gebruik worden gemaakt van de 
opzoektabel LEN (zie PLAY en INPUT). 


‚ De tijdsduur van de weergegeven toon moet gelijk zijn aan die van de 


opgenomen toon. Er worden interrupt-programmatechnieken gebruikt. 


. Tussen twee opeenvolgende tonen moet een vaste, korte pauze (stilte) 


plaatsvinden. Die wordt gerealiseerd door gebruik te maken van de 
interval-timer in de polting-mode. 

Nadat de melodie is “afgespeeld” moet er teruggegaan worden naar de 
monitor. 


Het programma REPEAT staat in de figuren 16a (eerste deel) en 16b 
(tweede deel). Het begint net als INPUT met het blokkeren van interrupts, 
het specificeren van de IRQO-sprongvektor en van de adreswijzer NOTE, en 
het tot uitgang verklaren van PBG en het stroomtoos zetten van de luid- 
spreker. Poort A hoeft nu niet te worden geprogrammeerd: deze speelt 


blokkeer interrupts KEY *__ SAEDA 
NOTEL * _$88DC 
NOTEN * _$9ÓDD 
LENGTH * _$@BDE 


binair rekenen 


STA —\RGL |1A7E eeu ta 5 DEL *__$1A40 
startadres “ 

L 1A7E 

STA -inan |ase) Ras - swr 

IRQRE * $1A30 

RESET _* $1C1D 

STA --PBOD |1A83 Pag uitgang RDFLAG * _$1ADS 

STA PBD | 1A82 _ PBG is 1 (luidspreker stroomloos) CNTA *_S1AF4 

STA —NOTEN| DD 01 >NOTEH rk NAE de 

grag CNTD * STAF? 

PBD *__$1A82 

STA -NOTEL[DC 89 >NOTEL PBDO  * $1A83 


interrupt-routines mogelijk 


DEL: 1AGQ BE 





begin vanaf FF tAG1 86 
1afef 2f te tellen 1A02 7E 
+A03 77 

DC _ haal toetswaarde op 1Ag4 74 
DA toetswaarde + KEY 1A95 GA 

Y=1 1AG6 64 

DC haal tijdsduur op 1A07 5E 
STA-LENGTH| DE _ tijdsduur > LENGTH 1A4B 59 
DA Y *toetswaarde 1409 54 

1AGA 4E 

1A0B 4A 

1A4C 47 

1AGD 43 

80915-6-16a 1AGE 3E 

1AGF 3C 


Figuur 16 (verdeeld over 16a en 16b). Met het programma REPEAT worden de 
tijdens het programma INPUT van figuur 14a/14b opgegeven tonen achtereenvolgens 
elk met dezelfde toonhoogte en tijdsduur als bij de “opname”’ (INPUT) weergegeven. 
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1} 


BM | 


BED 


(b) 
TONE (2) 


A9 LDA # 94 
BD STA —-PBD |1A82 PRG = 4; begin eerste halve periode 


BE | DX —DEL,Y | 1AGG bepaal halve periodeduur 


TONEA (3) 
24 Ee EQUALA | ®) wacht 22 us (korraktie voor symm. blokgolf} 


XX —1 


EC ® serste periodehelft klaar? 


| LDA #G1 | | LDA #G1 | 
aD STA —-PBD | 1482 PBg= 1 ; begin tweede halve periode 


BE| LODX — DEL, Y | 1AGG bepaal halve periodeduur 
TONER 


A5 LDA — LENGTH LENGTH| DE A LENGTH 


Co OE is de toon al voldoende lang weergegeven? 


2o{[ ravaur TJS) | weent 17 us 


cal __ DEX | XX 1 


GD (8) tweede periodehelft klaar? 
nee 







A2 LDX # q4 X -g4;4 x aftallan 


De 


LDA # 39 
STA -CNTD [| 1AF7 begin vanaf 30 af te tellan 








8D 


2C [BIT — RDFLAG| ADFLAGY 1AD5 


ca pen] xx 


mise ES 4 x afgeteld? 


INC _NOTEL) oc 


E6 [INC — NOTEL pe} NOTE — NOTE + 2 
Ag LDY #44 


B1 f Loa -(Noreuiy | DC A pl 


CMP #77 


is er nog sen toon 
waer ta geven? 


ORO 


nee 
ac [ JMP — RESET 


80915-6-16h 


83 


EQUALB 17 is 








80915-6-17a 
C6 | DEC -LENGTH | ggpe 
8 
8D STA — CNTG 1AFE 
5 
7 
80915-6-17b 





Figuur 17. De subroutines EQUALA en EQUALB (17a) zijn bij REPEAT 

(figuur 16a/16b) nodig als tijdskorrektie voor het verkrijgen van een symmetrische 
blokgolf. De interrupt-routine IRORE zorgt in samenwerking met de interval-timer 
ervoor dat in het programma REPEAT elke toon even lang te horen is als tijdens de 
“opname”, met het programma INPUT van figuur 14a/14b. 
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geen rol tijdens REPEAT. Alleen de instruktie STA-CNTA is nieuws. Deze 
zorgt voor de beginpositie van de timer-vlag (wordt @) en van de IRQG-lijn 
(is 1). Nu hoort CNTA bij de polling-mode en is dus een IRQ niet moge- 
lijk. Dat is wat de uP betreft wel mogelijk na de volgende instruktie: CLI. 
We zijn toe aan het label FETCH (figuur 16a). De interval-timer wordt 
gestart en begint vanaf FF af te tellen na de schrijfoperatie STA-CNTG 
(LRO-mode). Om de zestien duizend zoveel (zie INPUT) mikrosekonden 
wordt de interruptroutine RORE van figuur 17b afgehandeld. 

Zolang er geen interrupt-routine is af te werken gaat het programma 
REPEAT van figuur 16 gewoon door. Waar waren we ook weer gebleven? 
Bij het in de accu zetten van de inhoud van de geheugenplaats, aangewezen 
door NOTE. Dus bij het ophalen uit het melodiegeheugen van de toets- 
waarde van de toets die nu ten gehore gaat worden gebracht. Die toets- 
waarde gaat ook naar KEY. Na een verhoging van Y met 1 wordt de bij- 
behorende tijdsduur uit het melodiegeheugen opgehaald (zie figuur 15b). 
Die gaat naar LENGTH en de toetswaarde wordt ook in het Y-register 
gezet. 


We gaan nu van figuur 16a naar figuur 16D. 

Alles van REPEAT na het label TONE houdt zich met de daadwerkelijke 
toonopwekking bezig. Er zijn veel overeenkomsten met het programma 
PLAY van figuur 7. Eerst wordt PBQ nul gemaakt: het begin van de eerste 
helft van een periode van de blokgolf. Dan wordt net zo als bij PLAY een 
tijd gewacht. De tijd hangt af van de uit de opzoektabel DEL opgehaalde 
toonhoogte-data. Dan wordt PBQ weer 1: het begin van de tweede helft 
van een periode van de blokgolf. Mits de toon lang genoeg heeft geduurd 
wordt er dan weer een tijd gewacht, waarna het terug gaat naar TONE 
voor een nieuwe periode van de blokgolf. 


Hoe komt “men’' aan de weet dat de toon lang genoeg heeft geduurd? 
Door de accu te laden met de inhoud van LENGTH en met een BMI te 
kijken of LENGTH soms al negatief is geworden. Hoe zit dat dan met die 
negatieve LENGTH, zult u zich afvragen. Wel, al eerder is de interval-timer 
gestart met aftellen. Telkens na een time out treedt een IRQ op en wordt 
de IRO-routine RORE “afgedraaid’’. Daarin (zie figuur 17b) wordt de 
inhoud van LENGTH met één verlaagd. In overeenstemming met de tijds- 
duur van de in het melodiegeheugen geregistreerde toets wordt het pro- 
gramma rond TONE een bepaalde tijd doorlopen. 


Nadat de toon lang genoeg heeft geklonken gaat het programma naar het 
label TONEC. Er moet nu een tijdje worden gepauzeerd voordat de vol- 
gende toon uit het melodiegeheugen wordt opgehaald en weergegeven. Er 
is gebruik gemaakt van de interval-timer in de polling-mode (IRQ geblok- 
keerd). Vier keer achter elkaar begint de interval-timer af te tellen vanaf 
de waarde 39; decimaal is dat 48. Zodra de timer-vlag 1 is wordt de wacht- 
lus POLL met BIT-RDFLAG en BPL verlaten en wordt de inhoud van X 
met één verlaagd voor de volgende aftelbeurt. Is er vier keer afgeteld 
(pauzetijd: 4 x (48 x 1024 + 1)us = 196.612 gs = pakweg twee-tiende 
sekonde) (de BNE staat dan niet meer op springen), dan wordt de adres- 
wijzer NOTE twee plaatsen lager in het melodiegeheugen gezet. Er wordt 
gekeken of er nog meer tonen moeten worden opgehoest of niet (opvul- 
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teken 77). Zoniet, dan terug naar de monitor; zowel, dan terug naar 


FETCH (figuur 16a). 


toetsen: 


AD 
DA 
+ 
+ 
+ 
AD 
DA 
+ 
AD 
GO 


INSERT 


INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
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De praktijk: het intoetsen van REPEAT 


Het programma REPEAT en de subroutines EQUALA en EQUALB van 
figuur 17a worden nu ingetoetst met behulp van de editor. Omdat de 
pagina's @2 en @3 al zijn gebruikt voor het programma INPUT, maken we 
gebruik van de vrij beschikbare geheugenruimte in pagina QQ: de adressen 
0000... BOEG. Het toetswerk: 


9OEZ2 
Og 

K 

EQ 

KS 

1 A7 A 

5 1 

1 F 

1 CB 5 
FF1009 
7 8 

D8 
A93 0 
8D7ETA 
A91 A 
8D7 F1A 
A9 O1 

8 D831 A 
8D821 A 
85 DD 
A90 
85 DC 
8DF41 A 
58 
FF1100 
A9 FF 
8DFE1A 
AG OO 
B1 DC 
85 DA 
C8 

B 1 DC 
85 DE 
A4 DA 
FF1200 


display: 
DOE2 XX 
OOE2 OP 
OGE3 JP 
OGE4 ED 
OGE5 09 
1A7A XX 
1A7A 51 
1A7B 1F 
1CB5 20 
71 

FF 10 09 
78 

D8 

A9 30 

8D 7E 1A 
A9 TA 
8D 7F 1A 
A9 01 

8D 83 1A 
8D 82 1A 
85 DD 
A9 09 

85 DC 
8D F4 1A 
58 

FF 11 09 
Ag FF 
8D FE 1A 
Ad O0 

B1 DC 
85 DA 
C8 

B1 DC 
85 DE 
A4 DA 
FF 12 40 


opmerkingen: 


BEGAD 


BEGAD,) 
OGEO 


NMI-sprongvektor = 1F51 
(start assembler met ST) 


dage 


startadres editor 
editor startklaar 
label 10: REPEAT 
SEI 

CLD 

LDA IMM 309 
STA-IROL 

LDA IMM 1A 
STA-IRQH 

LDA IMM @1 
STA-PBDD 
STA-PBD 
STAZ-NOTEH 
LDA IMM 99 
STAZ-NOTEL 
STA-CNTA 

CLI 

label 11: FETCH 
LDA IMM FF 
STA-CNTG 

LDY IMM 90 
LDA-(NOTEL),Y 


_STAZ-KEY 


INY 
LDA-(NOTEL),Y 
STA-LENGTH 
LDYZ-KEY 

label 12: TONE 


INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 


NWEPUON NWE Pp 

nmgeEeSs Pes nmg eo 
== =S 0 SS 
WSNS 
a == == 
SeP Pr 


_ 5 0 8 = 


FF1500 
A24 
FF1600 
A93 0 
8DF71 A 
FF1700 
2CD51 A 
1017 
CA 
D®16 
E6 DC 
E6 DC 
AGÒO 

B 1 DC 
C97 7 
DÒ11 
â4C1 DI C 
FF1800 
E A 
4C1900 


A9 00 
8D 82 
BE 0d 
FF 13 
20 18 
CA 

D$ 13 
A9 O1 
8D 82 
BE 00 
FF 14 
Ab DE 
30 15 
29 19 
CA 

DO 14 
FG 12 
FF 15 
A2 04 
FF 16 
A9 30 
8D F7 
FF 17 
2C D5 
19 17 
CA 

D@ 16 
E6 DC 
E6 DC 
A® 00 
B1 DC 
C9 77 
D@ 11 
4C 1D 
FF 18 
EA 

4C 19 
FF 19 
EA 

4C 20 
FF 20 
60 


1A 
1A 
90 
dg 


1A 
1A 
tt, 


do 


00 
dg 
1A 


gd 
1A 


1C 
dò 


do 
Gö 


gd 
od 


LDA IMM d9 

STA-PBD 

LDX-DEL,Y 

label 13: TONEA 
JSR-EQUALA (label 18) 
DEX 

BNE naar TONEA (label 13) 
LDA IMM 01 

STA-PBD 

LDX-DEL, Y 

label 14: TONEB 
LDAZ-LENGTH 

BMI naar labet TONEC (label 15) 
JSR-EQUALB (label 19) 
DEX 

BNE naar TONEB (label 14) 
BEQ naar TONE (label 12) 
label 15: TONEC 

LDX IMM 04 

labet 16: TONED 

LDA IMM 39 

STA-CNTD 

label 17: POLL 
BIT-RDFLAG 

BPL naar POLL (label 17) 
DEX 

BNE naar TONED (label 16) 
INCZ-NOTEL 
INCZ-NOTEL 

LDY IMM gg 
LDA-(NOTEL),Y 

CMP IMM 77 

BNE naar FETCH (label 11) 
JMP-RESET (monitor; RESET = 1C1D) 
label 18: subroutine EQUALA 
NOP 

JMP-EQUALB (label 19) 
label 19: EQUALB 

NOP 

JMP-EEND (tabel 20) 

label 20: EEND 

RTS 


Het programma REPEAT en de subroutine EQUALA zijn nu ingetoetst. 
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Eerst een grondige check: 


toetsen: display: opmerkingen: 

SEARCH F F1 0 FF 10 begin bij het begin: label 1% 
SKIP 78 

SKIP D8 

SKIP A9 30 

SKIP 8D 7E 1A 

enzovoorts... 


waarna het ingetoetste programma kan worden geassembleerd: 
ST | 


Nu moet nog de interrupt-routine IRORE (zie figuur 17b) op pagina 1A 
worden ingetoetst. Ook nu maken we gebruik van de editor: 


toetsen: display: opmerkingen: 

AD OOE2 GOE2 XX 

DA 3 ® ÓGE2 39 

À tk 06E3 1A BEGAD 1A30 
+ 79 GEA 79 

AD 1CB5 1CB5 20 startadres editor 

GO 77 editor startklaar 
INSERT 4 8 48 PHA 

INPUT C6 DE C6 DE DECZ-LENGTH 
INPUT A9 FF A9 FF LDA IMM FF 

INPUT 8DFE1A 8D FE 1A STA-CNTG 

INPUT 68 68 PLA 

INPUT 409 40 RTI 

RST terugkeer naar monitor 


Vooropgesteld dat het programma INPUT al is ingetoetst, inklusief de 
routine IROIN en de opzoektabel DEL, kan nu het programma INPUT+ 
REPEAT worden gestart: 


ADQ29BGO 


INPUT is nu operationeel en wacht met spanning op uw muzikale ideeën. 
U kunt een melodie van maximaal 108 tonen opgeven. U bent klaar (druk 
RST in) of het melodiegeheugen is vol (automatische sprong naar de moni- 
tor). En dan kunt u zo vaak als u wilt 


ADG00BGO 


intoetsen. U heeft alle voordelen van "'software-muziek’’: geen vuile naald 
of bandrekorderkoppen, geen krassen op de plaat. U moet echter wel 
tijdens elke computersessie eerst “even” aan de junior-computer opgeven 
wat u eigenlijk wilt horen. 
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Sn 
ADN bee 
1 AA en se 
Att AIG AG ABA] A6 A2 | Ai 128 bytes PIA-RAM 
xia) x(o) x(o) xinl xn xe 1 xolo | Xx Xx | x [x|U1Aad... 1A7F) 
ett 1A80 | 1 |X] xe xtorl x(ol do | o [|G | PAD 
dn 1A81 [1 [XO] XB) | X(0| XO! 9 | B {1 | PADD 
1A82) 1 | X(@) | X(0) | X(0)) XO) | 9 | 1 @ | PBD 
Âtz 1AB3| 1 |X(B) | XO | X(0) XO 0 | 1 7 | esoo 
1AF4 | 1 XO 1 [@ [1 4 [0 \CLKIT 
1AF5 XU 1 | 0 |1 | @ |1 | CLKBT 
disable ea en At ei 
1AF6 1 1_\B | CLK64T 
timer-[RQ A anrveli 0 : 
1AF7 ( | 1 CLKIKT 
1AFC | 9 CLKAT 
1AFD g CLKST 
enable 
1AFE 1 CLK64T 
timer-RQ Ee Í 
: 1AFF | CLKIKT 
Wo JH disable timer-IRQ _ 1AD4 read timer Baie 
Sim KIÛ enable timer-IRQ _ 1ADC read timer 
ee Si 8 rd B 1AD5 read flag register 
nt fl disable PAJ-IRQ _ 1AE4 write neg EDET =. 
Se < disable PA7-IRQ 1AE5 write pos EDET 
ÖL Qs enabie PA7-1RQ 1AE6 write neg EDET 
of Sj enablePAJIRQ _ 1AE7 write pos EDET 


Tabel 1. De adressering van de 6532, de PHA van de junior-computer. Een X betekent 
don’t care, hetzij omdat de adrestijn in kwestie wel is aangesloten, maar geen invloed 
heeft, hetzij omdat de adreslijn helemaal niet is aangesloten (zie ook figuur 2). 
Teneinde een eenduidige adressering te verkrijgen is voor elke X een 1 of, in andere 
situaties, een B gekozen. Adreslijn A9 = CS1 bepaalt samen met KG = CS2 de keuze: 
PIA wel (1) of niet (@) aktief betrokken bij het gebeuren. Adreslijn A7 = RS bepaalt 
de keuze binnen de PIA tussen PIA-RAM (0) en poorten, interval-timer of flank- 
detektor (1). Adreslijn A2 kiest tussen de poorten (@) en de timer (1). De adreslijnen 
AQ en A1 bepalen de deelfaktor van het delerregister. De adreslijn A3 bepaalt of een 
timer-interrupt mogelijk moet zijn (1) of niet (@). De adreslijn A1 bepaalt of een 
PA7-interrupt mogelijk moet zijn (1) of niet (@). De adrestijn AQ bepaalt de keuze 
tussen negatieve (6) en positieve (1) flankdetektie op de als ingang geprogrammeerde 
poortlijn PA7. 

Voor de samenhang van deze tabel met het programmeermodel van de PIA 
(timer-mode en PA7-mode) wordt verwezen naar figuur 12 op pagina 60. De 

19 adressen 1A84 ... 1AE7 horen bij zes registers van de PIA: de poorten A en B 
met hun data-richtingsregister, het timer-dataregister en het vlagregister. De twee 
gebruiksmogelijkheden ‘“read-timer” (1AD4 en 1ADC) zijn niet behandeld in dit 
hoofdstuk. 
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Hoofdstuk 6 is hiermee uit. Het was afwisselend betrekkelijk dorre, maar 
o zo belangrijke teorie, en muzikale praktijk. In Junior-computer 3 zullen 
we vaak verwijzen naar dit hoofdstuk als we het bijvoorbeeld hebben over 
een cassette-interface voor het bewaren van programma’s (dan hoeft u die 
INPUT en REPEAT van daarnet ook niet meer telkens opnieuw in te 
toetsen!). Deze interface maakt dankbaar gebruik van de mogelijkheden 
van de 6532. Maar voor dât zo ver is bespreken we in dit boek gedurende 
drie hoofdstukken de inhoud van de EPROM. 


N.B. Een programmalisting van DEMO, PLAY, INPUT en REPEAT staat 
in Aanhangsel 2, achter in dit boek. 
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Het monitorprogramma 


elementaire huishoudelijke software 


De gebruiker zegt wat de computer moet doen. Dat gebeurt 
door het indrukken van funktietoetsen en numerieke toetsen. 
De gebruiker wil op elk moment een terugmelding krijgen van 
wat de computer (in wezen dus de gebruiker) doet. En dat 
gebeurt via de zes displays. 

De gebruiker maakt gebruik van zijn ogen, zijn handen en 
(hopelijk) van zijn grijze cellen. De computer moet het hebben 
van de toetsen, de displays en geheugencellen. Geheugencellen, 
die zijn gevuld met het monitorprogramma. Dit programma 
zorgt voor de juiste afwikkeling van opgegeven opdrachten en 
voor de juiste terugmelding. Opdrachten, zoals die horen bij het 
intoetsen van een programma of opdrachten tot gehele of 
gedeeltelijke daadwerkelijke uitvoering daarvan. En bij terug- 
melding denken we aan de weergave op de displays van een 
bepaald adres en van de op dat adres verblijvende data. 

Maar de monitor kan meer. Om de omschreven taken uit te 
voeren is gebruik gemaakt van een aantal subroutines. Bewust 
subroutines omdat deze, zoals we in boek 1 al hebben gezien, 
buitengewoon nuttig kunnen zijn als onderdeel van een 
gebruikersprogramma. 

Dit laatste aspekt zorgt ervoor dat dit hoofdstuk er niet zomaar 
een is waarin we het hebben over interne zaken, die voor de 
gebruiker niet van belang zouden zijn, of hooguit “leuk om te 
weten”. Nee, voor het maken van slimme, optimaal korte 
programma’s kan men aan dit hoofdstuk niet voorbij gaan. 

De monitor-software staat in het teken van de elementaire ge- 
bruiksmogelijkheden van de junior-computer: de toetsfunkties 
AD, DA, +, PC en GO. | 
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Hoofdstuk 3 was nog maar net goed en wel aan de gang of we wisten al dat 
het indrukken van de toets RST oplichtende displays tot gevolg heeft. En 
dat het achtereenvolgens indrukken van de toetsen AD, 0, 2, d, @, DA, E 
en 8 op het display zichtbaar wordt als G200E8. En dat je het adres met 
1 verhoogt door het indrukken van de plustoets. En wat later dat het 
indrukken van GO en PC bepaalde gevolgen heeft. We weten inmiddels het 
“waarom” van de handelingen (in het voorbeeld van daarnet: geheugen- 
plaats G208 vullen met E8, waarna plaats G201 aan de beurt is), maar we 
kennen het “hoe” nog niet: hoe gaat het verwerken van ingedrukte toetsen 
in zijn werk en hoe komt dat tot uiting op het display? Antwoord: via het 
monitorprogramma oftewel "de monitor’: een deel van de permanent aan- 
wezige software, die de junior-computer in de EPROM ten dienste staat bij 
de uitvoering van opgedragen taken. Het hulpje in de huishouding (van de 
junior-computer) voor dag en nacht. 


Wat doet-ie, hoe kom ik in de monitor, hoe kom ik er weer uit 
en nog zo een paar algemene vragen 


Het verhaal bij de figuren 1 en 2 


Het monitorprogramma is opgeslagen in een deel van de EPROM. Is dus 
permanent aanwezig (”resident’’ volgens het jargon). Dat moet ook wel, 
want zou het in RAM staan, dan zou het telkens na het inschakelen van de 
junior-computer in RAM moeten worden geladen. En voor dat laden heb je 
huishoudelijke software nodig die deel uitmaakt van ... jawel, de monitor. 
Dat neemt niet weg dat de monitor RAM-plaatsen nodig heeft om er 
variabele data, "'output’' van de monitor in op te bergen. Zoals we uit 
hoofdstuk 4 weten zijn dat een aantal geheugenplaatsen van pagina 09. 

De monitor doet het volgende: Detekteert een ingedrukte toets. Stelt 
vervolgens vast of het om een funktietoets gaat of om een numerieke toets. 
Is het een funktietoets, dus AD of DA of + of GO of PC (met de toetsen 
ST en RST ligt het iets anders, maar dat komt direkt), dan wordt een 
programmadeel afgewerkt dat hoort bij het doel, de funktie van de betref- 
fende toets (een toetsroutine). Gaat het om een numerieke toets (@ ... F), 
dan wordt vastgesteld of het om een datanibble of om een adresnibble 
gaat. Dit leidt tot aanpassing van de data op het in behandeling Zijnde 
adres, respektievelijk aanpassing van het adres dat in behandeling is. De 
inhoud van de zes displays wordt aangepast aan de nieuwe situatie, 
ontstaan na het indrukken van één of meerdere toetsen. Die nieuwe 
situatie is een gewijzigd adres of gewijzigde data, of de start van (een 
nieuwe instruktie van) het gebruikersprogramma. 

Misschien bestaat er verwarring rond het begrip monitor. We verstaan 
hieronder niet de hele inhoud van de EPROM, maar uitsluitend de ver- 
zorgende software, nodig voor het programmeren zonder poespas van 
boek 1. Andere delen van de EPROM zijn gereserveerd voor soortgelijke 
software, nodig om te kunnen editen en te assembleren. Die software heet 
niet “de monitor’, maar "de editor’ respektievelijk "de assembler” en 
komt in latere hoofdstukken aan de orde. 

De monitor is schematisch voorgesteld in figuur 1. We zien een rechthoek 
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herstet de genoteer- 
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SCAND tD88...1DCB 
SHOW 1DCC...1DDE 
CONVD 1DDF ...1DF8 
GETKEY IDF9,..1EIF 
Lookup table 1FGF... 
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Figuur 1. Het globale overzicht van het monitorprogramma van de junior-computer. 
De verbindingen met de buitenwereld (zie figuur 2) zijn aangegeven met de punten 
1...5. De diverse adressen in de figuur vindt men terug in de programma-listing, 
achterin dit boek. 


met daarbinnen vijf rechthoeken, zoals we die kennen van de globale 
stroomdiagrammen, drie labels en een testruit. Daarnaast zien we vijf 
genummerde ‘'aanstuitingen’”, punten via welke we de monitor binnen 
komen of verlaten. We zien vier van de vijf punten terug in figuur 2, een 
overzicht van aktiviteiten waarbij de monitor is betrokken. 

We bespreken nu eerst het globale overzicht van de monitor volgens 
figuur 1. De diverse onderdelen ervan worden later stuk voor stuk gedetail- 
leerd besproken. Beginnen we bij aansluiting ®. Dit is de resetingang. Een 
sprong naar RESET (startadres 1C1D) leidt tot de afwikkeling van een 
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aantal instrukties (rechthoek A), die te maken hebben met het opstarten 
van de junior-computer. Net zoals mensen na het wakker worden alvorens 
echt aan de dag te beginnen een aantal voorbereidende akties moeten 
verrichten moet de junior-computer na het inschakelen een “warming up!’ 
krijgen alvorens klaar voor aktie (START in figuur 1) te zijn. Overigens: 
niet alleen na het inschakelen. Er kunnen zich lang daarna tijdens het 
gebruik situaties voordoen waarbij het nodig is om via ingang ® uit gerezen 
problemen te raken en opnieuw te beginnen. Ook na de beeindiging van 
het editen springt men terug naar de monitor via RST. Uit figuur 2 zien we 
dat er twee wegen naar punt® leiden. We komen de monitor via® binnen 
door het indrukken van de toets RST (via de resetvektor, in de EPROM in 
1FFC en 1FFD) of via software: JMP-RESET. 

Aansluiting@ is ook een monitoringang, enwel een veel gebruikte. Ook 
hier een aantal instrukties (1C@@ ... 1C1C; rechthoek B, met label SAVE) 
alvorens men aan START toe is. Die instrukties zorgen ervoor dat de 
inhoud van alle uP-registers in RAM wordt opgeslagen. Dus dat de toestand 
van het “'software-dashboard’’ zoals die was vlak voordat naar de monitor 
werd gesprongen wordt ‘bevroren’. Waarom? Wel, er wordt meestal via @® 
naar de monitor gesprongen vanuit een gebruikersprogramma en het is de 
bedoeling om ooit weer naar dat programma terug te keren. De monitor is 
immers een hulpprogramma, geen doel in zichzelf. Dus de te “noteren” 
HP-registers bevatten programmagegevens. Die heb je later weer nodig, dus 
moet je ze bewaren, want het ‘software-dashboard’” verandert onder 
invloed van het monitorprogramma. Straks, vlak voor het verlaten van de 
monitor via ® wordt de oorspronkelijke situatie weer hersteld, mogelijk 
met uitzondering van de inhoud van de programmateller (PCH, PCL), die 
verandert door wijziging van het te behandelen adres. 

Uit figuur 2 blijkt dat er nogal wat mogelijkheden zijn om de monitor via 
@ binnen te komen. Gemeenschappelijk kenmerk: het gaat via een inter- 
rupt, voorwaardelijk (IRQ) of onvoorwaardelijk (NMI). Voor zowel een 
NMI als een IRO ís het daartoe absoluut noodzakelijk dat de beide effek- 
tieve adressen in pagina 1A gelijk zijn aan 1COd. 

Wat zijn de NMI-mogelijkheden? Om te beginnen het indrukken van ST. 
Verder via de NMI-pen van de uitbreidingskonnektor, dus van buiten af. 
En dan een heel belangrijke: tijdens stap-voor-stap-afwikkeling van een 
gebruikersprogramma wordt telkens na het indrukken van GO één vol- 
ledige instruktie afgehandeld en vervolgens een NMI opgewekt. Tijdens 
het verblijf in de monitor dat daar het gevolg van is kan dan de inhoud van 
allerlei registers worden bekeken in het kader van het foutzoeken of om 
edukatieve redenen, waarna via het indrukken van PC en GO de volgende 
instruktie wordt afgehandeld. 

Ook een IRQ kan van buitenaf of via de PIA-timer tot stand komen, mits 
de gP zijn hoofd erna staat (l-vlag nut). Het gaat echter ook via een soft- 
ware-interrupt: BRK. Die trekt zich overigens niets aan van de |-vlag. Over 
het nut van BRK's is in hoofdstuk 3 al het een en ander gezegd. 

Nu eerst de eigenlijke monitor: alles na START in figuur 1. In blok C gaat 
de inhoud van de displaybuffers naar de bijbehorende displays. Dat zijn 
oude bekenden van boek 1 (hoofdstuk 3, figuur 14), namelijk POINTH, 
POINT L en INH. En dan is het wachten geblazen. Eerst wachten totdat de 
vorige ingedrukte toets is losgelaten. Vervolgens wachten totdat er een 
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Figuur 2. Hoe kom ik erin en eruit? De mogelijkheden om in de monitor te komen in 
beeld gebracht. 
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nieuwe toets is ingedrukt. Het is ook bekend welke toets het was: de bij de 
toets horende toetswaarde staat in de accu. Vervolgens is de testruit aan de 
beurt, maar eerst even iets anders: in C wordt herhaald gebruik gemaakt 
van subroutines, die in figuur 1Î zijn samengevat in blok D. De namen en 
adressen van de subroutines staan erbij. Ze zijn ook voor de gebruiker 
toegankelijk (ingang® en uitgang®) en er zitten reuze handige bij, zoals al 
is gebleken en nog zal blijken. Overigens: ook de editor en de assembler 
bevatten voor de gebruiker nuttige subroutines. 

In de testruit stelt men vast of de ingedrukte toets soms GO was. Zoja, dan 
komt het programmadeel F aan bod en na een afsluitende RTI verlaat men 
de monitor via de enige “'dienstuitgang’’, punt ®. Afgezien van de terugkeer 
uit een monitor-subroutine (®) is dus het indrukken van GO de enige 
manier om uit de monitor te komen (plus uiteraard het omzetten van de 
netschakelaar . . } Blok F zorgt voor het herstel van de situatie van de 
MP-registers zoals die was tijdens de binnenkomst viaD. Alleen de inhoud 
van (PCH, PCL) kan tijdens het verblijf in de monitor zijn gewijzigd. 
Blijft blok E over. Daarin worden achtereenvolgens de toetsen AD, DA, 
+ en PC op aanwezigheid (d.w.z. als laatste ingedrukt) getest. Na een 
funktietoets wordt een programmadeel in overeenstemming met de funktie 
afgewerkt. Is het geen funktietoets, dan moet het een numerieke toets zijn. 
Als van de toetsen AD en DA toets AD als laatste is ingedrukt en losge- 
laten, wordt de numerieke toetswaarde behandeld als adresnibble: was van 
de twee DA het laatste ingedrukt dan wordt de toetswaarde als datanibble 
opgevat. 

Na de afhandeling van een van de funktie- of numerieke toetsen (op GO 
na) gaan we terug naar START; de tijdens deze afhandeling gewijzigde 
adres- en/of databuffers zetten we te kijk op de displays. En dan begint 
alles weer opnieuw: wachten op een nieuwe ingedrukte toets. 

Tot slot nog een opmerking. Voor een belangrijk deel van de aktieve 
periode, beginnend met het inschakelen van de junior-computer en het 
indrukken van RST bevindt de junior-computer zich in de monitor. Bij- 
voorbeeld als men na het indrukken van RST verder niets doet, maar ook 
tijdens het intoetsen van een programma. Een gebruikersprogramma van 
een paarhonderd bytes zonder wachtlussen zal hooguit 40 à 50 milli- 
sekonden duren, het foutloos intoetsen ervan minstens 40 a 50 minuten! 


N.B. Gedurende het verblijf buiten de monitor zijn de displays gedoofd. 
Gedurende het verblijf binnen de monitor is er sprake van een wachtlus. 

De wachttijd wordt benut voor de periodieke sturing van achtereenvolgens 
alle zes displays (multiplexing). 

En nu meer details. 


SAVE 


Momentopname van de uP-registers 
Blok B van figuur 1 uitgewerkt levert het gedetailleerde stroomdiagram van 
figuur 3a op. De toestand van de stack op de momenten®D.. .®is geschetst 
in figuur 3b. Voor de interrupt, dus voor de sprong naar de monitor staat 
de stack pointer gericht op @1XX en is 1XX41 de hoogste plek van de 
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Ke) 


1CBH ...ACIC 


Gedurende het verblijf in de monitor 
na binnenkomst via ingang © (SAVE) 
zijn er op bepaalde momenten tien 
plaatsen van de stapel (tijdelijk) in 
gebruik: drie plaatsen als gevolg van de 
STA — ACC A > ACC (44F3) NMH die tot de sprong naar de monitor 
heeft geleid, zes plaatsen voor drie 
En RE terugkeeradressen tijdens het verblijf 

in CONVD (zie figuur 11), en eén 
plaats voor de PHA tijdens SHOW 
(figuur 13). Die tien plaatsen moeten 
vrij beschikbaar zijn. Dit heeft 
gevolgen voor de hoogst toegestane 


SAVE 


PA 


SAVEA 


ik stand van de stack pointer 


- 


@ 
d Do U Vv 
x > > > (») 


STA — PCL A PCL (GBEF) respektievelijk voor de inhoud van de 
RAM-plaats SPUSER. De hoogst toe- 
gestane stand van SPUSER ss: 


staat gericht op geheugen- 


plaats 0149. De minimale inhoud van 
de RAM-plaats SPUSER is 09. Deze 
beperkingen voor SPUSER gelden met 
name voor stapvoorstap-programme- 
ren. 


STA — POINTL A >POINTL (@9FA) 
PCH > A 
STA — PCH A PCH (40F9) 


STA — POINTH A >POINTH (46FB) 


SAVEB 





STY — YREG Y>VREG (99F4) 
STX — XREG X > XREG (60F5} b 
Ss SP > X 
STX — SPUSER X > SPUSER (96F 2) el 
BIXX-2 GE 
LDX #01 
MODE (OFF) + 49 
1XX-1 ee ei 
on GTE 
JMP — START 
DIX + 1 $ 
stack 
pointer 
START hoogste 
(fig. 7) plaats 
v. Stack 80915 - 3h 
80915 - 7 - 3a 


Figuur 3a. Het gedetailleerde stroomdiagram van de SAVE-routine, doorlopen na een 
sprong naar de monitor via een interrupt. 


Figuur 3b. De toestand van de stapel (stack) en van de stapelwijzer (stack pointer) op 
een aantal tijdstippen gedurende de afwikkeling van de SAVE-routine. 
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stapel. Direkt na de sprong is de stapel met drie opgehoogd (moment®): 
achtereenvolgens PCH, PCL en P zijn toegevoegd. Dit gebeurt overigens 
niet omdat we naar de monitor springen, maar omdat we met een NMI of 
IRQ hebben te maken. 

En dan begint SAVE. Eerst gaat de inhoud van de accu naar bewaarplaats 
GOF3 (ACC), dan gaat de bovenste plaats van de stapel, dus de te bewaren 
P naar plaats PREG (moment®). En dan al weer een PLA: de dan hoogste 
plaats, met inhoud PCL gaat eraf. 

Die inhoud PCL gaat zowel naar bewaarplaats PCL als naar de adresbuffer 
POINTL. Hetgeen voor de hand ligt omdat POINTL de middelste twee 
displays bedient en die geven het rechter adresbyte weer en daar heeft PCL 
alles mee te maken. De procedure herhaalt zich voor de stapelplaats met 
PCH; deze gaat naar geheugenplaats PCH en naar displaybuffer POINTH, 
die goed is voor de linker twee displays, dus het linker adresbyte. 

De NMI zorgde voor drie plaatsen op de stapel, de drie PLA's die we nu 
achter de rug hebben herstellen in feite de oorspronkelijke stand van 
zaken. Het is dus nu een zeer nuttig moment voor het bewaren van de 
stand van de stack pointer, via een TSX en een STX op bewaarplaats 
SPUSER (“user’” = gebruiker, dus het gebruikersprogramma). Tussendoor 
is de inhoud van X naar XREG en die van Y naar YREG gegaan. Rest nog 
het ongelijk aan nul maken van de inhoud van MODE en de sprong naar 
START. Door MODE zo te vullen zorgen we voor het plaatsen van de 
junior-computer in de adresmode, zoals we nog zullen zien. 

Opmerking. Om misverstanden te voorkomen: SAVE wordt alleen door- 
lopen als de opwekking tot een gang naar de monitor tot stand komt via 
een interrupt. De sprong naar een monitor-subroutine geschiedt met een 
normale JSR en dan worden uitsluitend PCH en PCL bewaard. 

Nog een opmerking. Alle instrukties van gedetailleerde stroomdiagrammen 
zoals figuur 3a vindt men achterin het boek terug in de programma-listing, 
inklusief het adres met de opcode van elke instruktie, de opcodes en de 
operand(en). 

En nog een. Het is absoluut af te raden om de monitor binnen te komen 
via een JMP-1CQO. Tijdens SAVE is dan namelijk op elk moment de stapel 
drie plaatsen lager dan eigenlijk de bedoeling is. Ga maar eens na wat er in 
de verschillende bewaarplaatsen komt te staan! 


Hebben we daarnet in detail de binnenkomst van de monitor besproken, 
nu het vertrek uit de monitor 


Exit-monitor 


terug van weggeweest 


Het programma, afgewikkeld na een ingedrukte GO staat in figuur 4a, de 
toestand van de stack op een aantal tijdstippen in figuur 4b. Eerst wordt 
de oorspronkelijke stackpointer hersteld door de inhoud van SPUSER via 
X naar de stackpointer te sturen. Deze staat dan gericht op plaats @1XX. 
Moment ® van figuur 4b komt overeen met moment @® van figuur 3b; de 
adressen @1XX in beide figuren zijn exakt dezelfde. Dus de stapelwijzer is 
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Nd di a ed es 


gerekonstrueerd. Geldt dat nu ook voor de stapel, dus voor de inhoud van 
de adressen Q1XX+1 en hoger (dus lager op de stapel)? Ja, dat moet wel, 
anders worden programmagegevens ‘ongevraagd’ gewijzigd. Tijdens het 
verblijf in de monitor verandert de stapel alleen door sprongen naar sub- 
routines, maar dat is een tijdelijke zaak want uit subroutines keer je terug. 
We kunnen wel tn problemen raken als de programmastapel (SPUSER) 
op een paar plaatsen na vol is. Want: binnen blok C van figuur 1 vindt op 
een gegeven moment een flinke subroutine-nesting plaats. In de praktijk 
zal de stack niet zo vol zijn of kunnen we maatregelen treffen in het 
gebruikersprogramma. (Zie de figuren 3, 11 en 13) 

Terug naar het herstel van de programmagegevens. Achtereenvolgens gaan 
via de accu en PHA de inhoud van POINTH, die van POINTL en die van 
PREG de stapel op en wordt de inhoud van A, X en Y hersteld. De stapel 
is nu tijdelijk drie plaatsen hoger dan oorspronkelijk, maar direkt, na de 
RTI komt dat allemaal weer op zijn pootjes terecht. De RTI interpreteert 


1C49 ...1C5B 


(fig. 6} 


LDX — SPUSER 
T 










SPUSER (BBF 2} > X 


XS X > stackpointer 


LDA — POINTH POINTH (GG FB) — A 
LDA — POINTL 


POINTL (BOFA) > A 


A >stack b 


LDA — PREG PREG (GOF1) > A 







ox 10 
LDX — XREG 
LDA — ACC BIXX-1 inhoud POINTL end CG) 
DIX inhoud POINTH (orx | 5 
inhoud SPUSER 
hoogste 
plaats 
v. Stack 80915 - 7 - 4o 


80915 - 7 -4a 


Figuur 4a. Gedetailleerd stroomdiagram van het programma dat wordt afgewikkeld 
na het indrukken van de toets GO. Het indrukken van deze toets is de enige 
mogelijkheid om de monitor-hoofdroutine te verlaten. Dit programma is het spiegel- 
beeld van de SAVE-routine van figuur 3a. 


Figuur 4b. De toestand van de stapel en van de stapelwijzer op een aantal tijdstippen 
gedurende het programma van figuur 4a. 


gg 


de inhoud van de hoogste stapelplaats als de te herstellen P‚ de inhoud van 
de op een na hoogste plaats als de te herstellen PCL en die van de op twee 
na hoogste plaats als de te herstellen PCH. U ziet het (figuur 4b), het klopt 
allemaal als een bus. 


RESET 


warming-up | 

Wat zijn nu eigenlijk de te verrichten voorbereidende aktiviteiten van de 
junior-computer na het indrukken van RST? Dat kunnen we zien in het 
programma van figuur 5. | ‘ 

We beginnen met het tot uitgang verklaren van de bits 1 ... 4 van poort B. 
Deze poort, of juister, vier bits ervan worden uitsluitend als uitgang ge- 
bruikt. Het laden van PREG met @4 betekent het 1 maken van de I-vlag en 
het @ maken van de D-vlag na een latere terugkeer uit de monitor. Dus in 
het gebruikersprogramma worden indien men geen maatregelen neemt 
IRO's genegeerd. 


1CID ...1C32. 











LDA #1E 
STA — PBDD 


LDA #04 


STA — PREG 


LDA #03 


1E > PBDD; 
PB1 ...PBA uitgang 







PREG < da40e100 





q3 >A 


STA — MODE A MODE (GGF F) (AD-mode) 


STA — BYTES A BYTES (B@F6) (instruktietengte 3} 


LDX # FF EFX 


X > stackpointer 


STX — SPUSER X > pragramma:stackpointer 


Xx 
ur 


0 
- 
u 


D —d binair rekenen 


le-1 negeer IRQ 






START 
(fig. 7) 





80915-7-5 


Figuur 5. De RESET-routine wordt doorlopen bij het (opnieuw) opstarten van de 
junior-computer. 
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Door het vervolgens ongelijk nul maken van de inhoud van MODE zorgt 
men ervoor dat er sprake ís van de adresmode. Hetgeen logisch is als je net 
begint en eerst een programma moet intypen, te beginnen op een start- 
adres (of eerst plaatsen in pagina 1A moet laden). Het @3 maken van 
BYTES betekent dat er drie bytes op het display moeten worden weer- 
gegeven: twee adresbytes en één databyte (bij het editen is de inhoud van 
BYTES variabel: 1, 82, of ®3: er blijven dan twee of vier van de zes 
displays gedoofd). En dan wordt de stapelwijzer op de laagste plaats 
(@1FF) van de stapel gericht; ook op de gebruikersstapel (SPUSER:; pas 
effektief na het verlaten van de monitor). De CLD zorgt ervoor dat er bij 
ADC's en SBC's binair tewerk wordt gegaan en de SEI blokkeert voorwaar- 
delijke interrupts. Deze laatste twee eenvoudige voorzieningen, die zorgen 
voor een duidelijk gedefinieerde beginsituatie en een hoop narigheden 
voorkomen, ontbreken in de soortgelijke resetroutine van de KlM-monitor! 


Toetsen afhandelen 


aktie! 


We gaan er van uit dat er een toets is ingedrukt en losgelaten en dat de 
toetswaarde van de ingedrukte toets in de accu staat. Dan volgt er aktie. 
Aktie in de vorm van de instrukties van figuur 6. Bij elke toets hoort de 
volgende toetswaarde: 


0:00 5:05 A:DA F:F PC:14 

1:01 6:06 B:0B AD:10 (valse toets: 15) 
2:02 1:07 C: BC DA:11 

3:03 8:08 D:0D +:12 

4:04 9:09 E:GE GO:13 


(wisten we eigenlijk al van boek 1, maar goed) 

Het vaststellen van een toets gebeurt met door opeenvolgende kombinaties 
van compare immediate-toetswaarde met een BNE; de BNE zorgt voor een 
sprong als het resultaat van de vergelijking van de werkelijke toetswaarde 
met de te testen toetswaarde ongelijk aan nul is. 

Wat er na een vastgestelde GO-toets gebeurt is al besproken. Is de AD-toets 
ingedrukt, dan wordt de inhoud van MODE ongelijk aan nul gemaakt en 
gaat het (ondanks de BNE a/tijd) via STEPA terug naar START. Na een 
vastgestelde DA en het nul maken van MODE gaat het verder precies zo. 

Is de ingedrukte toets de plustoets — en we weten nog wel dat dat het op- 
hogen van het adres betekent — dan wordt de inhoud van POINTL (rechter 
adresbyte) met 1 verhoogd. Was die inhoud FF vlak voor de verhoging dan 
wordt deze @@ en moet ook het linker adresbyte (POINTH) worden opge- 
hoogd. Een kwestie van testen met een BNE. Na gedane zaken terug naar 
START via STEPA. 

Wat gebeurt er na een vastgestelde PC-toets? Dan gaat de inhoud van 
bewaarplaats PCL naar POINT L en die van PCH naar POINTH. Waarna de 
inmiddels welbekende sprong naar START volgt. 

Nu bevatten de plaatsen PCL en PCH de stand van de programmateller vlak 
voor de sprong naar de monitor. En het is ook al bekend dat na GO de 
inhoud van POINTL gelijk is aan de te herstellen PCL (terugkeer naar 
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gebruikersprogramma) en de inhoud van POINTH gelijk aan de te herstel- 
len PCH. Dit is volledig in overeenstemming met de funktie van de PC- 
toets: Na de afwerking van een instruktie kan bij stapvoorstap-program- 
meren tijdens het verblijf in de monitor de inhoud van atlerlei registers 
(geheugenplaatsen op pagina 00, zie SAVE) worden bekeken. Dit betekent 
een tijdelijke verandering van het adres, dus van POINTL en POINTH. Als 
we straks de volgende instruktie willen afwerken door het indrukken van 
GO moeten we wel eerst van onze uitstapjes (in het kader van foutzoeken 
of het innerlijk van de uP doorgronden) terugkeren. En dat is een kwestie 
van indrukken van G& PC, 

Alle mogelijke funktietoetsen zijn nu vastgesteld. Afgezien van een 'valse 
toets’, met toetswaarde 15 (die na vaststelling heel eenvoudig wordt 
genegeerd) blijven de numerieke toetsen B... F over. Het programmadeel 
van figuur 6 met label DATA is dan inmiddels bereikt. Eerst gaat de 
inhoud van de accu, die de toetswaarde van een numerieke toets bevat naar 
de toetsbuffer KEY. Vervolgens gaat de inhoud van MODE naar Y. Heeft 
men goed opgelet dan is in de adresmode Y gelijk aan @1 of 93, in ieder 
geval ongelijk aan nul, en in de datamode gelijk aan GB. Een BNE bepaalt 
of de numerieke toetswaarde moet worden opgevat, en behandeld, afs een 
adresnibble (adreswijziging) of als een datanibble (wijziging van data). 

Wat gebeurt er als het een datanibble blijkt te zijn? Heeft u de beschikking 
over een junior-computer, dan weet u dat in de datamode na het indrukken 
van een numerieke toets de overeenkomende hexadecimale toetswaarde op 
het meest rechtse display komt te staan. En dat wat daar oorspronkelijk 
stond een plaatsje naar links verschuift. Het zal u niet verbazen dat de nu 
te bespreken instrukties die veranderingen mogelijk maken. 

Goed, er moet een geheugeninhoud worden gewijzigd. Het gaat om de 
inhoud van de geheugenplaats met adreswijzer (d.w.z. die wordt aan- 
gewezen door) (POINTH, POINTL). Via een LDA met indirekte 
Y-geïndexeerde adressering (waarbij Y nul is) gaat de inhoud van de te 
wijzigen geheugenplaats de accu in. Nemen we aan dat die inhoud bestaat 
uit de bits p ... wen kijken we wat er vervolgens gebeurt: 


Pp qrs t u v w ... inhoud accu direkt na het laden 
qr s t u v we ... inhoud accu na eerste ASL-A 
rs tu vwe@ Dd... inhoudaccu na tweede ASL-A 
st uv we@ DD... inhoudaccu na derde ASL-A 
tuvw@ dd... inhoud accu na vierde ASL-A 


Na vier keer schuiven is het oorspronkelijke tinker nibble verdwenen; het 
nieuwe linker nibble is nu gelijk aan het oorspronkelijke rechter nibble en 
de nieuwe waarde van het rechter nibble is @. 

De inhoud van de toetsbuffer KEY is gelijk aan (in bits uitgeschreven) 
ODDPX XXX, waarbij de vier iksen de binaire toetswaarde van de numerieke 
toets voorstellen. Door de accu te ORren met de inhoud van KEY: 
tuvw@ Odd... inhoudaeccu voor ORA 

9 0 B B X X X X ... inhoud KEY 

tuvwXXXX... resultaat van ORA(Z)-KEY 

is het linker nibble ongewijzigd en het rechter nibble getijk gemaakt aan 
de toetswaarde van de ingedrukte toets. Hetgeen de bedoeling was. 

Rest nog het terugzetten in (POINTH, POINTL) van de accu-inhoud en de 
terugkeer via STEPA naar START. Het gebruik van STEPA doet op het 
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eerste gezicht wat merkwaardig aan. Op het tweede gezicht niet. Er wordt 
namelijk een paar keer voorwaardelijk naar START gesprongen en zonder 
STEPA-tussenstation zou de maximale negatieve offset (—128) zijn over- 
schreden, met alle gevolgen van dien. 


adreswijziging 
Is er sprake van de adresmode en een ingedrukte numerieke toets, dan 
moet de inhoud van de adres-bepatende geheugenplaatsen POINTH en 
POINTL worden aangepast. Dat gebeurt in het programmadeel ADDRESS 
van figuur 6. Na het laden van X met @4 doorloopt men ADLOOP vier keer 
achterelkaar. Vier keer achterelkaar de inhoud van POINTL naar links 
schuiven en die van POINTH naar links draaien en X met 1 verlagen. Bij 
schuiven wordt telkens de inhoud met een @ aangevuld, bij draaien met de 
inhoud van de carryvlag. 
De details. Stellen we de bits van het 
linker nibble van POINTH gelijk aan h i j k, het 
rechter nibbte van POINTH gelijk aan | m n o, het 
linker nibble van POINTL gelijk aan p q r s,en het 
rechter nibble van POINTL gelijk aan t u v w,‚ende 
beginsituatie van de carryvlag op x, dan gebeurt er achtereenvolgens het 
volgende: 













Pars tu vw . begin 


……. na ASL-POINTL 
…. na ROL-POINTH 
na ASL-POINTL 
…. na ROL-POINTH 
na ASL-POINTL 
na ROL-POINTH 
…. na ASL-POINTL 
… na ROL-POINTH 


en stellen vast dat het nieuwe linker nibble van POINTH gelijk is geworden 
aan het oorspronkelijke rechter nibble. En dat het nieuwe rechter nibble 
van POINTH gelijk is geworden aan het oorspronkelijke linker nibble van 
POINTL. Adresbuffer POINTH blijft verder ongemoeid, maar POINTL 
wordt nog verder onderhanden genomen. De inhoud ervan gaat naar de 
accu en deze wordt bit voor bit geORd met de inhoud van de toetsbuffer 
KEY (die zoals we weten de toetswaarde van de numerieke toets bevat): 
tuvwe@ gd P ... inhoud accu voor ORA = inhoud POINTL 

9 BBP XX XX... inhoudKEY 

t uvwXXXX... resultaat van ORA(Z)-KEY 

(dat via een STA terug gaat naar plaats POINT L) 


2x 
il 











x 
I 






gt amg mgee angen 
x 
Il 






2 
H 





Er kan worden vastgesteld dat het oorspronkelijke rechter nibble van 
POINTL nu het linker nibble daarvan vormt en dat het nieuwe rechter 
nibble gelijk is aan de toetswaarde van de ingedrukte (numerieke) toets. 
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(fig. 7) 


ee (me) mer) 


ne é 
ge 









CMP #13 ) 
ee 


OEL 






{fig. 4a) 


STA — MODE 







POINTL <POINTL + 1 


PCL {GGE F| 
STA — POINTL >POINTL 
PCH (94F9) 










POINTL = 90 ? 


ADMODE 


CMP # 10 


POINTH —POINTH + 1 





LL 






LDA #93 23 A 


STA — MODE A MODE (GGFF} 








et hie 


) 


Bedenken we dat een numerieke toets een nibble vertegenwoordigt en dat 
elk van de zes displays zorgt voor de weergave van één nibble, dan kennen 
we nu de achtergrond van wat er aan het display (alle zes) verandert als in 
de adresmode een numerieke toets is ingedrukt. Gebeurtenissen die we in 
de praktijk kunnen verifiëren (junior-computer in natura aanwezig) of op 
papier hebben kunnen vaststellen (de toetsprogramma's). 

Rest nog de terugkeer naar START die gebruikelijk is na de beëindiging 
van elke toetsroutine behalve GO. 


Alle gedetailleerde software van de monitor is nu besproken, op die van 
blok C van figuur 1 na. En voor het tentoonstellen van de displaybuffers 
op het display en het vaststellen van een ingedrukte toets zijn wel wat 
meer instrukties nodig. Instrukties, behorend tot interessante subroutines. 


Oorzaak en gevolg 


een ingedrukte toets uitdrukken op het display 
Direkt na het centrale punt, met tabel START, van de monitor is blok C 
aan de beurt: het weergeven van de inhoud van de displaybuffers, het vast- 
stellen van een nieuwe ingedrukte toets en het vaststellen welke toets is 
ingedrukt. Dat direkt na START het display in aktie is past in de funktie 
van het display als middel tot terugmelding van de (junior-)computer naar 
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ILLKEY ADDRES 


CMP #15 valse toets? STA — KEY A {= numerieke twl * KEY (G8E1) LDX # 04 


MODE (QGFF) > Y 
datanibble of adrasnibble? 
adresnibble 
schuif bits 
N.B. Blijven datanibble (POINTH, POINTL) 
numerieke 4 posities naar 


links 


toetsen LDA — (POINT), Y [A < inhoud (POINTH, POINT LI Dex | 
over 
ASL — A 


ASL — A 


schuif 

rechter nibble 
naar 

ASL — A linker nibble 


ASL — A 


ORA — KEY toetswaarde * rechter nibble LDA — POINTL POINTL (BCFA) > A 
e A > adres (POINTH, POENTL) E rechter nibble 
ee nil aen ORA — KEY (POINTH, POINT L} «KEY (GOE 
JMP — STEPA STA —POINTL | A >POINTL (99FA) 
JMP — STEPA 
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Figuur 6. Gedetailleerd stroomdiagram van het programma dat volgt na de vaststelling 
en de identifikatie van een ingedrukte toets. Achtereenvolgens worden alle funktie- 
toetsen op aanwezigheid getest. Bij elke funktietoets hoort een toetsroutine (een 
afwikkelingsprogramma) dat in overeenstemming is met de funktie van de toets. De 
toetsroutine van GO staat in figuur 4a. Voor een numerieke toets wordt een keuze 
gemaakt uit twee mogelijke toetsroutines. In de adresmode (van AD en DA is AD het 
laatste ingedrukt) vertegenwoordigt de numerieke toets een adresnibbie en in de 
datamode (DA het laatste ingedrukt) een datanibble. 


de gebruiker. Immers, het punt START wordt alleen bereikt na het indruk- 
ken van een toets of van toetsen, dus na aktie van de gebruiker. Binnen 
de monitor springen we naar START nadat een ingedrukte toets via een 
van de al besproken toetsroutines is afgewerkt. Voor de toets GO speelt de 
toetsroutine zich weliswaar maar gedeeltelijk binnen de monitor af, maar 
ook nadat één (stapvoorstap) of alle instrukties van het gebruikersprogram- 
ma zijn afgewerkt keert men na verloop van tijd via SAVE terug naar 
START (gebeurt dat niet dan is men aan het eind van het gebruikers- 
programma geheid een BRK vergeten waar dat nodig was). Of er wordt uit 
het programma naar de monitor gesprongen om te wachten op nieuwe, in 
te toetsen programmagegevens. 

En de laatste manier om START te bereiken gaat ook al via het indrukken 
van een toets, namelijk RST (opstarten). 

In figuur 7 staan de instrukties van blok C van figuur 1. Het zijn er in feite 
echter wel wat meer dan de zeven van figuur 7 omdat er sprake is van vier 
aangesprongen subroutines. De subroutine SCAND (details later) zorgt 
voor het displayen van de drie displaybuffers POINTH, POINTL en INH en 
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detekteert een eventuele ingedrukte toets, waarbij de accu-inhoud aan het 
eind van de rit (RTS) ongelijk aan nul is als er een toets (nog) is ingedrukt 
en nul als er geen toets is ingedrukt. De subroutine GETKEY zorgt ervoor 
dat de accu wordt geladen met de toetswaarde van de ingedrukte toets. 

Voor de eigenlijke bespreking van figuur 7 eerst een opmerking over de 
instrukties BNE en BEO. Een BNE levert een sprong op als (hier) de accu 


(fig. 5) 


(fig. 3a) | 


Î JSR — SCAND E 
| ISR — SCAND Í 


ij JSR — GETKEY Í 


(fig. 6) (tig. 6} 
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Figuur 7. Gedetailleerd stroomschema van het deel van het monitorprogramma dat is 
belast met het weergeven op het display van de inhoud van de displaybuffers, en met 
het vaststellen en identificeren van een ingedrukte toets ("Is er een toets ingedrukt. 
Zoja: welke?’"). De gedetailleerde bespreking van dit programma, inklusief de sub- 
routines vormt het leeuwedeel van dit hoofdstuk. 
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ongelijk aan nul is. In figuur 7 test de BNE dus op een niet (meer) inge- 
drukte toets. Voor de BEO geldt de tegenovergestelde sprongkonditie: 
springen als de accu gelijk is aan nul. De twee BEO's van figuur 7 zijn ge- 
bruikt om te testen op een ingedrukte toets. 

De bij een toets horende aktie, die zal leiden tot een gewijzigd display, 
vindt “onmiddellijk” na het indrukken plaats, dus niet pas na het loslaten 
van de toets. Bezitters van de junior-computer zullen dit met ons eens zijn. 
Het is zeer belangrijk dat telkens slechts één toets in behandeling wordt 
genomen en voor het onderzoek naar een nieuwe ingedrukte toets moet 
eerst zijn vastgesteld dat de vorige toets is losgelaten. Dat gebeurt met de 
kombinatie van de eerste SCAND en de aansluitende BNE (wachtlus 
zolang de vorige toets niet is losgelaten). 

De tweede SCAND + BEO, eenmaal bereikt, zorgt voor de detektie van 
een nieuwe ingedrukte toets. Is dat het geval dan wordt schijnbaar onnodig 
nog een derde SCAND + BEOQ doorgewerkt alvorens GETKEY aan de 
beurt is. Schijnbaar, omdat we geen rekening hebben gehouden met het 
effekt van de kontaktdender van de losgelaten vorige toets en met die van 
de ingedrukte nieuwe toets. Schijnbaar, als geen rekening wordt gehouden 
met figuur 8. 

Gaan we uit van een logisch nivo 1 voor een niet ingedrukte toets en van 
een nivo @ voor een ingedrukte toets (d.w.z. de situatie op een van de 
poortlijnen PAG...PA6 van poort A), dan zou in het ideate geval het 
indrukken van een toets op het tijdstip t1 het plaatje van figuur 8a opleve- 
ren. De praktijk van de kontaktdender ziet er anders uit: figuur 8b. Op de 
tijdstippen t3 en t5 zorgt de kontaktdender voor een logisch nivo @ (= niet 
ingedrukte toets) nadat op tijdstip t1 de toets is ingedrukt: een schijnbaar 
niet ingedrukte toets. Daar mag de computer echter geen boodschap aan 


| 


: t1 Eef t7 t2 t4 +6 
fig. 80915 - 7-8 / 


Figuur 8. Een ingedrukte of weer losgelaten toets gaat in het voor de computer ideale 
geval gepaard met een gedefinieerde verandering van een logisch nivo (8a). Op tijdstip 
t1 wordt de toets ingedrukt en op t/ weer losgelaten. In de praktijk treden tijdelijk 
logische onzekerheden op ten gevolge van kontaktdender van de toetsen. Na het 
indrukken van een toets zijn er momenten (t3 en t5) dat de toets als niet ingedrukt 
wordt opgevat. Via de software van het monitorprogramma wordt ervoor gezorgd dat 
de toets pas na tijdstip t6, dus na het uitsterven van de kontaktdender definitief en 
ondubbelzinnig wordt vastgesteld en geïdentificeerd (8b). Na het loslaten van een 
toets is er sprake van een soortgelijke situatie. N.B. Het gaat hier om de logische 
toestand van een van de zeven poortlijnen PAG . .. PA6 van de als ingang geschakelde 
poort A. 
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hebben en er moet met software voor worden gezorgd dat de toets pas 
wordt vastgesteld na tijdstip t6 van figuur 8a, dus nadat het toetskontakt- 
dendereffekt is uitgestorven. De oplossing: het doorlopen van een schijn- 
baar onnodige extra SCAND vergt minstens zoveel tijd als de tijd die ver- 
loopt tussen de tijdstippen t1 en t6 van figuur 8b. 

De wachtlus met de tweede SCAND en de BEQ (figuur 7) wordt bij een 
ingedrukte toets spoedig na de periode t1-t2 verlaten. Na de derde SCAND 
+ BEQ (geen sprong) wordt GETKEY bereikt na het tijdstip t6. 

Ook het loslaten van de vorige toets heeft kontaktdender tot gevolg. Net 
als in de situatie na het indrukken van een toets is er dan sprake van een 
schijnbaar losgelaten toets. De wachtlus met de tweede SCAND en de 
eerste BEQ kan dan worden genegeerd maar tegen de tijd dat de derde 
SCAND is doorlopen is de dender uitgestorven en staat de tweede BEQ 
op springen, waardoor alsnog de tweede SCAND + BEOQ voor detektie van 
een nieuw ingedrukte toets zorg draagt. 


Voordat de subroutines SCAND en GETKEY in detail zullen worden be- 
sproken nu eerst een uitstapje (“subroutine”) naar de hardware, die hoort 
bij de sturing van de displays en bij het herkennen van een ingedruk te 
toets. 


Van software naar hardware en omgekeerd 


De sturing van de displays 


Het is bekend dat de kommunikatie van gebruiker naar junior-computer 
plaatsvindt via toetsen, en dat de kommunikatie in omgekeerde richting 
gaat via de displays. Het is ook bekend dat bij die kommunikatie de 1/0 
een essentiële taak heeft te verrichten. En I/O betekent zoals bekend door 
software gestuurde hardware (O) of door hardware bepaalde ingangsdata 
voor de software (1). 

In figuur 9 is de schakeling ‘achter’ de poorten A en B getekend, zoals die 
ook voorkomt op het principeschema van de junior-computer (boek 1, 
pagina 16/17). Poort B doet uitsluitend dienst als uitgang en is aangesloten 
op de punten A...D van IC7. Afhankelijk van de enen _en _nulten op 


SAAN ren iter varden 
opn vereren ar rr 


A...D is een van de tien uitgangen van IC7 "laag’’, logisch nul (@) of, in 


Tnt tard waan aart er a ME AE DV ve rie he Nrs maf ND stotende ve A aw AME 4e daveren vre 
nrg ener + 


grofstoffelijk elektronische termen, Tigt”aan massa. Zes van de tien uitgan- 
gen zijn verbonden met de gemeenschappelijke katode van een display. 
Voor het oplichten van één of meerdere segmenten van een display moet 
de gemeenschappelijke katode van dat display aan massa liggen en moet 
dus de betreffende uitgang van IC7 laag, @ zijn. Poort B doet (via 1C7) 
dienst als displayschakelaar. Er is sprake van de volgende waarheidstabel 
van poort B: 
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ten en neen Prenen verneem eee eee ene dee ve dd 


Tabel 1 
PB7 PB6 PB85 PB4 _PB3 PB2 PB1 PB$ te schakelen display 
D  C B A 


X X X 4 0 1 G @ X Di1 

XX X 50 1 0 de he | ADH (buffer POINTH) 
X X X f 0 1 1 @ X _ Di3 

XXX a 4 k Ae B | ADL (buffer POINTL) 
XX X 1 9 d B _X Dis 

X X X o, 1 ö ö 1 x DIG data (buffer INH) 


Als een poortbit met X is aangegeven mag dat bit ® of 1 zijn (dontcare), 
simpelweg omdat de bijbehorende poortlijn niet is aangesloten. Bij het 
opstarten (RESET) zijn de poortingangen X tot ingang verklaard. 

Indien een display is ingeschakeld en indien alle uitgangen van IC6 niet 
logisch nul zijn, dus niet aan massa liggen, dan lichten alle zeven segmenten 
van dat display op en zien we een 8 verschijnen. Nu zijn er nog 15 andere 
nuttige kombinaties van oplichtende segmenten (totaal 16 hexadecimale 
cijfers) en er moet de mogelijkheid zijn om bepaalde segmenten uit te 
schakelen. Dat gebeurt door poort A tot uitgang te verklaren en te gebrui- 
ken als segmentschakelaar. Stel we willen segmentc uitschakelen. Dan 
moet ervoor gezorgd worden dat de inverteruitgang, aangesloten op pen 12 
van IC11 aan massa ligt (deze uitgang trekt dan stroom uit +5 V via R11). 
Om dat te bereiken moet de bijbehorende inverteringang (punt B van IC11, 
dus PA2) "hoog, 1 zijn. Met andere woorden: een bepaald patroon van 
oplichtende segmenten is het gevolg van een bepaald bitpatroon op de als 
uitgang geschakelde poort A. Is een bit 1 dan licht het bijbehorende 
segment níet op; is het bit @, dan juist wel. 

Voor de segmentpatronen van de hexadecimale cijfers gelden de volgende 
bitpatronen: 


Tabel 2 


0D 


PA2 


> 
u 
Ki) 
> 
Rad 
Dv 
> 
WW 


PA7 PAG 


i 


PAG hexadecimaal 


jv 
{3 


sees SeSsSSe Tl P 
md 


KOK MKO MK MK MK MK MK XK MK MX MX KX X 

sesee-eaeses-essSsSS=-—= @| 
ees-esasess-esSsSa==e + 
saesesesessesa-r-==S-S 0| 
„eesees-eSs=-eeSs-eSeS-S aj 
—-e-esesessseeSssSssS=-sSS 0| 
se-es-eesesseS-SS-8 W| 
nmUOwPwEOEANOURWUN= Se 
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Figuur 9. Detail van het principeschema van de junior-computer, betrokken bij de 
sturing van de displays en de toetsen. Kortom: het deel van de junior-computer, 


betrokken bij de 1/0. 
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Figuur 10. Identifikatie (met de tetters a... g) van de segmenten van een zeven- 
segment-display. Het segmentenpatroon a... g van een oplichtend display is identiek 
aan het bitpatroon PAG ... PAG van de als uitgang geschakelde poort A (segment a 
licht op. Dan is a 1, dus a =PA6 4). 
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terme deed an 


Een overzicht van de segmentpatronen treft men aan in figuur 15 van 
hoofdstuk 1 (boek 1, pagina 34). Als aanvulling daarop geeft figuur 1 de 
positie van de segmenten a...g aan. De zojuist opgegeven bitpatronen 
(die aanleiding geven tot een oplichtend segmentpatroon) zijn in de 
EPROM opgeslagen in een tookup-table (adressen 1FOF tot en met 1F1E). 
Uiteraard gaat het daarbij om de hexadecimale weergave; poortlijn PA7 (X) 
is tot ingang verklaard. 


Het vaststellen van een ingedrukte toets 


Uit figuur 9 blijkt dat elke toets twee kontakten heeft. Een kontakt ligt 
aan een uitgang van IC11 en het andere kontakt aan een poortlijn van 
poort A. De 21 toetsen zijn opgesteld in een matrix (“rechthoek’’) van 
3 rijen en 7 kolommen. Toetsen van dezelfde rij hebben een gezamenlijke 
aansluiting op een bepaalde uitgang van IC7. Toetsen van dezelfde kolom 
zijn op dezelfde poortlijn aangesloten. 

Voor het vaststellen van een ingedrukte toets wordt poort A tot ingang 
verklaard. Door de juiste sturing via poort B is uitgang @ of 1 of 2 van IC7 
laag. Het indrukken van een toets veroorzaakt een @ op een lijn van 
poort A, míts op het moment van indrukken de toetsaansluiting op IC? 
laag is, dus mits de rij, waartoe de toets behoort is voorgeschakeld. Een 
ingedrukte toets is dus ondubbelzinnig vast te stellen: de rij waartoe hij 
behoort ligt vast via de toestand van poort B en de kolom waartoe hij 
behoort uit zich in het nul worden van één van de zeven bits van poort A. 
De situatie is samen te vatten in twee tabellen: 


Tabel 3 
PB7 PB6PB5PB4PB3 PB2 PB1 PBG vast te stellen toetsen 


D C B A 


rij @ met de toetsen @, 1, 2, 3,4, ben 6 
rij 1 met de toetsen 7,8, 9, A, B, Cen D 
rij 2 met de toetsen E‚ F‚, AD, DA, +, GO en PC 


[ Cz LS, 


waarmee één van de twee koördinaten van de ROn vastligt. De andere 


© 
XX XX 


koördinaat volgt uit: | DCG es 
k Disable (5. = H (ore ivva C PPG 
Tabel 4 
PA7 PAG PA5 PA4 PA3 PA2 PAI PAO 

toetsen Ò, 7 en E X ® 1 1 1 1 1 1 
toetsen 1, 8 en F X 1 ® 1 1 1 1 1 
toetsen 2, 9 en AD X 1 1 @ 1 1 1 1 
toetsen 3, Aen DA X 1 1 1 ® 1 1 1 
toetsen 4, Ben + X 1 1 1 1 ® 1 1 
toetsen 5, Cen GO X 1 1 1 1 1 @ 1 
toetsen 6, D en PC X 1 1 1 1 1 1 fj 


Terug naar de software 


De subroutine SCAND-minus AK 


Het is zeer zinvol om alvorens deze subroutine instruktie voor instruktie te 
behandelen te komen tot een soort samenvattend overzicht van wat er 
alemaal staat te gebeuren. Doen we dat niet, dan zou het overzicht en 
vooral het inzicht wel eens verloren kunnen gaan. Het ligt allemaal aan het 
feit dat binnen SCAND herhaald werk wordt uitbesteed aan een andere 
subroutine (te weten SHOW, en dat deze laatste subroutine op zijn beurt 
ook weer herhaald werk uitbesteedt aan weer een andere subroutine, 
CONVD. Het herhaald uitbesteden van werk (SHOW is een soort onder- 
aannemer en CONVD een onder-onderaannemer) betekent het nesten van 
subroutines en het is nou eenmaal onmogelijk om alles tegelijk in detail te 
behandelen. Anders zou de lezer zich misschien net zoals de subroutines in 
de nesten werken, Vandaar het overzicht van de werkzaamheden aan de 
hand van figuur 11. Het betreft het display-gedeelte van SCAND, dus alles 
vóór AK, het toetsdetektiegedeelte van SCAND. 

Er moeten drie displaybuffers worden weergegeven op het display. Twee 
adresbuffers, POINTH en POINTL en de databuffer INH. Er zijn zes 
displays en dat klopt precies, want bij de drie buffers horen 3 x2=6 
nibbles. Binnen de subroutine CONVD wordt gedurende een zekere tijd 
een bepaald display geaktiveerd; er lichten dan twee of meer segmenten 
op. In de subroutine SHOW wordt bepaald welk nibble van de te displayen 
buffers moet worden gedisplayed, dus welk display na de sprong naar 
CONVD aktief gaat worden. Er wordt dus per displaybuffer twee keer 
vanuit SHOW naar CONVD gesprongen. Er zijn drie buffers, dus wordt er 
drie keer vanuit SCAND(S) naar SHOW gesprongen. 

Gedurende één gang door SCAND lichten dus alle zes displays gedurende 
een tijdje op. Als we ons bedenken dat, zolang geen nieuwe toets is inge- 
drukt, er sprake is van een wachtlus, waarin SCAND periodiek wordt 
doorlopen (de tweede SCAND met een BEQ van figuur 7), dan worden de 
displays in feite periodiek bediend. Er is sprake van wat zo mooi heet 
software-gestuurde display-multiplexing. 

De instrukties van de subroutine SCAND staan in figuur 12. We beperken 
ons hier tot het gedeelte tot aan label AK: de rest volgt later. Begonnen 
wordt met het verklaren van INH tot databuffer: de inhoud van de geheu- 
genplaats, aangewezen door (POINTH, POINTL) gaat ernaartoe. In de 
editormode (zie hoofdstuk 8) wordt INH, en trouwens ook POINTH en 
POINTL voor andere te displayen data gebruikt. Er wordt dan meteen 
gesprongen naar het nu volgende programmadeel SCANDS. Dit gedeelte 
begint met het tot uitgang verklaren van poort A, die als segmentschake- 
laar dienst doet. Door het laden van X met 08 en het transport van de 
inhoud van X naar poort B in CONVD zetten we de displayschakelaar in 
de stand “Dit”. Dus X bepaalt de stand van de displayschakelaar poort B, 
die tijdens CONVD daadwerkelijk tot stand komt. 

Vervolgens gaat de inhoud van BYTES naar Y; dit indexregister bepaalt 
dus hoeveel buffers er weergegeven moeten worden. Tijdens het opstarten 
(RESET) is BYTES geladen met 93. En dan gaat de inhoud van POINTH 
de accu in en springen we naar SHOW: De twee nibbles van POINTH 
worden achtereenvolgens op de bijbehorende displays tentoongesteld 
(twee keer springen vanuit SHOW naar CONVD, zie figuur 11). Vervolgens 
een verlaging van Y met 1 en het gaat weer op naar SHOW voor de weer- 
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Figuur 11. De gang van zaken tijdens het afwikkelen van de subroutine SCAND. De 
diverse elkaar opvolgende instrukties zijn voorgesteld met balken, die telkens van 
boven naar beneden worden afgewerkt. Duidelijk is de multiplexing van de zes 
displays te zien; alles op zijn beurt, maar voor het oog alles tegelijk. Ook de 
subroutine-nesting is duidelijk zichtbaar. Gedurende het verblijf in CONVD vindt de 
maximale (tijdelijke) verhoging van de stack plaats, drie terugkeeradressen gaan 
gepaard met een verhoging van de stapelwijzer met zes. Dit heeft gevolgen voor 
SPUSER: zie figuur 3. 


gave van POINT L. Daarna nogmaals een verlaging van Y en de inhoud van 
INH gaat naar het display. Rest het tot ingang verklaren van poort A, als 
voorbereiding op het later te bespreken programmadeel AK. Het gebruik 
van Y (= BYTES) lijkt hier een overbodige luxe, omdat het aantal te legen 
buffers vastligt. De subroutine SCANDS wordt echter ook bij het editen en 
assembleren gebruikt, met een variabel aantal weer te geven displaybuffers. 
Vandaar. 
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SCAND 


LDY #40 LDY #43 3 rijen 
LDA — (POINTL).Y (POINTH, POINTL) —INH (44 F9) LDX #40 rij d 


STA — INH 


ONEKEY 


LDA # FF A 1111 1111 


LDA #7F poort A Ol} ti fy 


I” 


STA — PADD uitgang 


LDX #68 Dil aktief 
aantat te 
disptayen 
buffers 


LDY — BYTES 


STX — PBD 
volgende 
rij 


EY volgende rij 


AND — PAD 


LDA — POINTH POINTH > A 


JSR — SHOW 
DEY 


[ 
EE 


nog meer 
buffers te 
displayen? LDY #06 


STY — PBD 
kr 
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LDA — POINTL POINTL >A 
EOR # FF 
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(zie tabel 1) 


LDA — INH INH >A display 
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STA — PADD kde 


LDA #09 } oo HEAO 
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Figuur 12. Gedetailleerd stroomdiagram van de subroutine SCAND. De laatste helft, 
AK is heel goed bruikbaar als een aparte subroutine. 
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A{=bufferinhoud) > stack 


STY — TEMP Y (=bufferteller) > TEMP(GGFC) 


LSR — A 
linker nibble — 
rechternibble; 

linker nibble © $004 


LSR — A 











LSR — A 


LSR … A 


JSR — CONVD 


> 


stack > A 


AND # GF linker nibble © G990 









ie 


JSR — CONVD 


LDY — TEMP 


TEMP (@Q FC) > V 
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Figuur 13. Gedetailleerd stroomdiagram van de subroutine SHOW. Deze zet het in 
CONVD te displtayen nibble rechts in de accu; het linker nibble van de accu is @. Als 
gevolg van de instruktie PHA wordt tijdelijk beslag gelegd op één plaats van de stack. 


De subroutine SHOW 


Aan het begin van deze subroutine (zie figuur 13) staat de inhoud van de 
te displayen buffer in de accu. Een byte bestaat zoals bekend uit twee 
nibbles en bij elk nibble hoort een display. Er wordt dus telkens twee keer 
vanuit SHOW gesprongen naar CONVD. De subroutine CONVD werkt met 
de accu-inhoud als “input” en om redenen die besproken zullen worden bij 
CONVD moet het linker nibble van de accu-inhoud vlak voor de sprong 
naar CONVD gelijk zijn aan @; het rechter nibble van de gewijzigde accu- 
inhoud is het direkt na de sprong naar CONVD weer te geven hexadecima- 
le cijfer. Nu wordt altijd eerst het linker nibble weergegeven en dan het 
rechter nibble. Dus wordt via vier keer LSR-A het tinker nibble tot rechter 
nibble gemaakt (als gevolg van het vier keer schuiven naar rechts is het 
linker nibble nul geworden). Maar voordat het zover is gaat eerst via een 
PHA de oorspronkelijke accu-inhoud (= bufferinhoud!) de stapel op en 
gaat de inhoud van de bufferteller Y naar TEMP, omdat Y direkt voor 
andere taken beschikbaar moet zijn. Dan volgt de sprong naar CONVD 
(weergave linker nibble van buffer) en na terugkeer daaruit wordt de 
oorspronkelijke accu-inhoud hersteld. Door deze te ANDen met QF wordt 
het linker nibble gewijzigd in @; het rechter nibble blijft ongewijzigd en 
wordt op het bijbehorende display weergegeven na de sprong naar CONVD. 
Na de tweede terugkeer uit CONVD hoeft alleen nog maar de oorspronke- 
lijke toestand van Y worden hersteld. 
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De subroutine CONVD 


De inhoud van de accu (linker nibbte = @, rechter nibble = weer te geven 
hexadecimale cijfer) gaat naar Y (TAY). Dit als begin van de subroutine 
CONVD, die te zien is in figuur 14. Diezelfde Y wordt vervolgens als index 
gebruikt voor het laden van de accu via absolute Y-geïndexeerde adresse- 
ring met de inhoud van de lookup tabel (opzoektabel). In de accu komt 
dan een bitpatroon te staan, dat straks, verderop in CONVD aanleiding 
geeft tot een passend oplichtend segmentenpatroon. 

Dan gaat de inhoud van de accu naar de tot uitgang verklaarde poort A en 
de inhoud van X naar poort B: de funktie van poort B als displayschake- 
laar wordt nu effektief. Nu licht het display op met een segmentpatroon, 
zoals onlangs uit de opzoektabel opgehaald. Hoe lang licht dat display op? 
Gedurende de tijd dat de wachtlus DELAY wordt doorlopen. Deze lus 
bestaat uit een DEY en een BPL: Nadat het Y-register met 7F (= 127) is 
geladen wordt er net zolang 1 van afgetrokken totdat Y via @9 gelijk is 
geworden aan FF (BPL: springen zolang N-vlag nul). Met het 128 keer 
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bitpatroon 
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display 
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Figuur 14. Gedetailleerd stroomdiagram van de subroutine CONVD, belast met het 
gedurende een tijdje aktiveren van telkens één van de zes displays. 
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doorlopen van DEY +BPL gaan een dikke -636”klokpulsen (= mikro- 
sekonden) gemoeid, gedurende welke het display oplicht. Maar daarna is 
het ook uit: de laatste inhoud van Y (= FF) gaat naar poort A. We weten 
dat als alle relevante (zeven) bits van poort A 1 zijn (N.B. F = 1111) alle 
segmenten van de displays zijn geblokkeerd, d.w.z. kortgesloten naar massa. 
Door het via Y laden van poort B met 96 = 0600110 zetten we de display- 
schakelaar in een neutrale stand, Nu is namelijk de niet aangesloten uitgang 
3 van IC7 (zie figuur 9) aktief. Het einde van CONVD is bereikt na het 
twee keer achterelkaar verlagen van X met 1. Dit heeft tot gevolg dat 
tijdens de volgende keer dat CONVD aan bod is de displayschakelaar in de 
volgende stand staat. 

N.B. Het linker nibble van de accu-inhoud moet aan het begin van CONVD 
nul zijn omdat anders de inhoud van Y groter dan F zou kunnen zijn. En 
dat zou het overschrijden betekenen van het hoogste adres 1F1E van de 
opzoektabel. In feite maken we Y niet hoger dan nodig is. En ook niet 
hoger dan wenselijk is, omdat na adres 1F 1E ook nog bytes volgen. Bytes, 
die hoogstwaarschijnlijk niet voor een segmentpatroon zouden zorgen dat 
hoort bij een hexadecimaal cijfer. 


Nogmaals SCAND: het gedeelte AK 


toetsdetek tie 


Het tweede gedeelte van SCAND heet AK en houdt zich bezig met het 
ontdekken van een ingedrukte toets. Dit deel is ook op te vatten, en te 
gebruiken als een subroutine. Overigens: het is altijd mogelijk om vanuit 
een gebruikersprogramma te springen naar een punt ergens middenin een 
subroutine. Dat kan omdat er altijd een afsluitende RTS is. Niet dat een 
dergelijke afkortingsmanoeuvre altijd zinvol is voor de gebruiker. Hij 
moet bovendien een goed inzicht hebben van de toestand van de diverse 
uP-registers bij de sprong naar een punt middenin een (monitor-)sub- 
routine, en eventueel in het gebruikersprogramma voorbereidingen treffen. 
Terug naar AK. Zoals bekend staan de toetsen opgesteld in drie rijen van 
zeven kolommen (zie figuur 9 en ook figuur 16). De toestand van poort B 
(display/rijschakelaar) bepaalt welke rij op een bepaald moment wordt 
onderzocht op een ingedrukte toets. Poort B ligt vast via het X-register. 

Uit het voorgaande is al bekend dat aan het eind van AK, dus aan het eind 
van SCAND de inhoud van de accu ongelijk aan nul is bij een ingedrukte 
toets en nul als er geen toets is ingedrukt. We zullen zien dat dat aan het 
eind van dit hoofdstuk het geval is. 

Aan het begin van AK zijn alle bits van poort A gelijk aan 1. Dat is gebeurd 
tijdens het laatste voorgaande verblijf in CONVD (display nummer zes 
aktief). Een van die bits is nul na het indrukken van een toets (zie ook 
tabel 4). Bij meerdere ingedrukte toetsen verschijnen er meerdere nulten in 
poort A, vooropgesteld dat de ingedrukte toetsen tot verschillende kolom- 
men behoren (zie de figuren 9 en 16). (Voor AK: zie figuur 12) 

In de subroutine AK worden alle rijen op ingedrukte toetsen onderzocht. 
Het is dus niet zo dat, afs er bijvoorbeeld in rij ® een toets is ingedrukt, de 
rijen 1 en 2 worden overgeslagen. De accu kan dus aan het eind van de 
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AK-rit meer dan één 1 bevatten. 

De subroutine AK (zie figuur 12) begint met het @3 maken van Y;deze is 
hier gebruikt als rijenteller: er zijn drie rijen op ingedrukte toetsen te 
onderzoeken. En dan: X= Gd; X bepaalt straks de toestand van de rij- 
schakelaar. Het nu volgende programmadeel ONEKEY begint met het 
volgooien van de accu met enen: LDA #FF. Dan gaat de inhoud van 
X(= 0D) naar poort B (programmafase AKA) en rij Ô staat voor (zie tabel 
3). Het vervolgens twee keer verhogen van X betekent de voorbereiding 
van de volgende rij (ook hier: zie tabel 3). Vervolgens het ANDen van de 
accu met de inhoud van poort A. In wezen gaat de inhoud van poort A, die 
een nul bevat bij een ingedrukte toets, naar de accu, welke laatste tijdens 
een volgende AKA-doorgang eventueel nog met nullen wordt aangevuld als 
er nog meer toetsen tegelijk zijn ingedrukt. Uiteindelijk, nadat AKA drie 
keer is doorlopen komt het aantal nullen van de accu-inhoud overeen met 
het aantal verschillende kolommen waartoe ingedrukte toetsen behoren. 
De volgende programmastap is het laden van poort B via Y met 06. Het 
komt erop neer dat de display/rijschakelaar in de neutrale stand komt te 
staan: noch een van de zes mogelijkheden van tabel 1, noch een van de drie 
mogelijkheden van tabel 3 is van toepassing. 

De instruktie ORA #80, die nu aan bod is, doet op het eerste gezicht 
lichtelijk overbodig aan. Immers, aan het begin van AK was bit 7 van 
poort A al 1. Op het tweede gezicht is die ORA niet altijd overbodig. Want 
poortlijn PA7 is in de standaard-junior-computer tot ingang verklaard en 
weliswaar nergens voor gebruikt, maar een toekomstige uitbreiding omvat 
het gebruik van poortlijn PA7 voor de sturing van een printer. Dan is het 
wel mogelijk dat tijdens AK bit 7 nul wordt. Is er geen toets ingedrukt en 
bit 7 is tijdens AK gelijk aan nul (m.a.w. gedraagt zich net zo als een 
ingedrukte toets), dan lijkt het net alsof er bij het verlaten van AK een 
toets ís ingedrukt terwijl dat niet het geval is. Deze foute boel wordt 
voorkomen door die ORA. 

De op RTS na laatste instruktie van AK is EOR # FF, die ervoor zorgt dat 
alle bits van de accu worden geïnverteerd. Dus enen worden nullen en 
nullen enen (bit voor bit exclusive ORren: B als bits gelijk, 1 als bits 
ongelijk). Nu is bereikt dat de accu een of meerdere enen bevat als er een 
of meerdere toetsen tegelijkertijd zijn ingedrukt, die tot verschillende 
kolommen behoren. Dus dat de inhoud van de accu dan ongelijk aan GQ is. 
En dat de accu @Q is zonder ingedrukte toets(en). 

Hetgeen de bedoeling was van AK. 


De subroutine GETKEY 


toets identificeren 

Nadat een of meerdere toetsen zijn ingedrukt moet de toetswaarde van de 
ingedrukte toets worden vastgesteld, enwel in GETKEY. Nu hebben we 
het net gehad over “een of meerdere ingedrukte toetsen” en over ''de 
toets’ en “de toetswaarde’. Hoe zit dat? Heel simpel: de toets met het 
laagste rijnummer en met het laagste toetsnummer (zie figuur 16) wordt er 
uitgepikt en van deze toets staat aan het eind van de subroutine de toets- 
waarde in de accu. 
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Net zoals in AK moet een ingedrukte toets worden vastgesteld. Dit is de 
reden dat het grootste deel van AK, namelijk alles vanaf ONEKEY ook in 
GETKEY wordt doorlopen, enwel maximaal drie keer. Het verschil zit 
hem in dat “maximaal”. Zodra in GET KEY een ingedrukte toets is ontdekt 
worden eventuele volgende rijen niet meer onderzocht op een ingedrukte 
toets. 

In instrukties uitgewerkt staat GETKEY in figuur 15a. In figuur 15b is het 
programmadeel vanaf ONEKEY van AK (figuur 12) nog eens weergegeven. 
Begonnen wordt met het laden van X met 21. Met als gevolg dat straks, na 
de sprong naar ONEKEY rij B in behandeling wordt genomen. Het laden 
van Y met @1 betekent dat binnen ONEKEY één rij gaat worden bekeken. 
De terugkeer uit ONEKEY geeft een accu-inhoud ongelijk nul (ingedrukte 
toets van de in behandeling zijnde rij vastgesteld) of gelijk aan nul (geen 
ingedrukte toets). Met een BNE wordt eventueel gesprongen naar KEYIN 
als een ingedrukte toets is ontdekt. Is geen ingedrukte toets ontdekt en is 
X ongelijk aan 27, dan gaan we terug naar GETKEA en terug naar 
ONEKEY. 

Wat is het nut van het vergelijken van de inhoud van X met 27? Aan het 
begin van GETKEY is X gelijk aan 21 en wordt rij B bekeken. Binnen 
ONEKEY wordt X twee keer achterelkaar met 1 opgehoogd, zodat na het 
onderzoek van rij @ X gelijk is aan 23. Nu is 23 ongelijk aan 27 zodat 
ONEKEY opnieuw wordt doorlopen, nu voor het bekijken van rij 1. Na 
afloop hiervan is X gelijk aan 25 en was er ook op rij 1 geen ingedrukte 
toets, dan gaat ONEKEY voor een derde keer de molen in. Na afloop 
waarvan X gelijk Is aan 27. 

Nu zijn alledrie rijen bekeken. Er is een toets ingedrukt, want anders zou 
(na AK) het programma (nog) niet aan GETKEY toe zijn. Je zou dus 
verwachten dat na uiterlijk drie keer een rij bekijken de BNE op springen 
naar KEYIN staat. Helaas ligt het allemaal niet zo eenvoudig. Volstaan 
wordt met de opmerking dat als er na het bekijken van alle drie rijen geen 
sprong naar KEYIN volgt, de accu de waarde 15 krijgt toebedeeld, gevolgd 
door een RTS, die in dit geval moet worden opgevat als een soort 
“‘nooduitgang’’. De accu-inhoud 15 komt overeen met de toetswaarde van 
wat we hebben teren kennen als een “valse” toets. 

Nu is het programmadeel KEYIN aan bespreking toe. Hier vindt de feite- 
lijke toekenning van de toetswaarde plaats. In figuur 16 is de toetsenrecht- 
hoek getekend, met inbegrip van gegevens over de toetskoördinaten X en 
Y, die direkt zullen worden besproken. Eerst eens kijken hoe die Y ont- 
staat. 

KEYIN begint met het FF maken van Y, dan schuift de inhoud van de 
accu minstens twee keer een positie naar links. Voor het schuiven bevat de 
accu zeven nullen en één 1. Er wordt geschoven totdat die ene 1 in de 
carryvlag staat (BCS). De stand van Y na afloop van het schuiven geeft de 
plaats van de 1 aan, bevat dus kolominformatie van de ingedrukte toets 
(zie figuur 16). | 

Uit figuur 16 blijkt dat'Y gelijk is aan de toetswaarde voor elke toets van 
rij Q. Voor een toets van rij 1 moet er @7 bij Y worden opgeteld om op de 
toetswaarde uit te komen en voor een toets van rij 2 GE, dat is twee keer 
97. Met deze eventueel noodzakelijke opteloperatie(s) houdt het program- 
madeel KEYINB zich bezig. 
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Figuur 15. Gedetailleerd stroomdiagram van de subroutine GETKEY, belast met het 
vaststellen welke toets is ingedrukt (a) en van het als subroutine gebruikte 
programmadeel na ONEKEY van de subroutine AK (b). (zie ook figuur 12) 


Eerst gaat de inhoud van X, die rij-informatie bevat, naar de accu. De 
waarde van X is 23 voor een toets van rijd, 25 voor een toets van rij 1 en 
27 voor eentje van rij 2. Het is eenvoudig na te gaan dat vlak voor KEYINC 
de waarde van X is veranderd in @1 voor een toets van rij d, @2 voor een 
toets van rij 1 en Q3 voor een toets van rij 2. Programmadeel KEYINC 
tenslotte telt bij de accu-inhoud (die inmiddels via een TYA gelijk is 
geworden aan Y) niets op als X gelijk is aan O1, of telt er B7 bij op als X 
gelijk is aan O2, en telt er twee keer achterelkaar Q7 bij op als X gelijk is 
aan @3. Resultaat: vlak voor de afsluitende RTS is de inhoud van de accu 
gelijk aan de toetswaarde van de ingedrukte toets. 

Misschien is het allemaal wat te snel voor de lezer gegaan en misschien is 
het geen gek idee om te gaan kijken wat er zich binnen GETKEY allemaal 
afspeelt als er een bepaalde toets is ingedrukt. Stel dat toets C is ingedrukt. 
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Aan het begin van de rit is X gelijk aan 21 en Y gelijk aan @1. Dan springen 
we naar ONEKEY. Pas nadat poort B met X = 21 is geladen ligt van elke 
toets van rijd één kant aan massa (logisch @) en geeft een eventuele 
ingedrukte toets van rij J een nul op een van de zes als ingang geschakelde 
poortlijnen van poort A. Nu hoort toets C niet tot rij @; kijk het maar na in 
figuur 16. Poort A blijft dus zoals-ie was: 


X1111111 (poort A) 

X 1111111 (accu) (A FF) 

X1111111 na ANDen met FF 
11111111 naORren met 80 


U ziet het: een betrekkelijk 1-tonige zaak. Register X verandert wèl van 
inhoud: 


1 (=21) 
B (= 22) na eerste INX 
1 (=23) na tweede INX 
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Figuur 16. De toetsenmatrix (-rechthoek), voorzien van toetswaarden en kolom- en 
rij-informatie (koordinaten). 


Bij de terugkeer uit ONEKEY reageert de BNE op de laatst gewijzigde 
registerinhoud. Dat was de accu (EOR IMM). De accu-inhoud is nul en er 
wordt dus niet naar KEYIN gesprongen. Dus volgt de test op het gelijk zijn 
van X aan 2/7. Dat is niet het geval (immers: X = 23), dus springen we naar 
GETKEA, maken Y @1, gaan weer naar ONEKEY, vullen de accu met enen 
en poort B met de nieuwe waarde van X: rij 1 staat klaar voor onderzoek. 
Nu ligt van elke toets van rij 1 een kontakt aan massa. Toets C hoort bij 
rij 1 en poort A ziet er nu zo uit: 


X1111101 
Ô 
PAT = kolom 1 (figuur 16) 
en de accu zo, na het ANDen met poort A: 
X1111101 


Het ORren met 88 maakt X nul en na het exclusief ORren met FF Is de 
inhoud van de accu gelijk aan: 


000ddd1d 
en X is inmiddels na twee keer ophogen gewijzigd in 25. 
Na de terugkeer uit ONEKEY volgt weer die BNE. De inhoud van de accu 
is ongelijk aan nul, dus volgt nu wèl de sprong naar KEY IN. Daar wordt de 


inhoud van de accu net zo lang naar links geschoven totdat het carrybit 1 
is: 
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X 00000018 FF start 
9 0000010Û FF nadeeerste ASL-A 
dg 09401008 PP na de tweede ASL-A 
B 09019900 O1 nade derde ASLA-A 
dg 0810090 Û PÛ2 na de vierde ASL-A 
d 01600000Û P3 nade vijfde ASL-A 
9 1000000D Ü4 nade zesde ASL-A 
1 600000 BÛ Gb na de zevende ASL-A 
Î il 
carry Y na de ASL en 

voor de BCS 


Na zeven maal schuiven is de carry 1 geworden en gaan we door met 
KEYINB. Aan het begin daarvan is door de ingedrukte C-toets X gelijk aan 
23 en Y gelijk aan 95. 

Eerst gaat X naar de accu: 


BA 101 accu vóór het ANDen 
90001111 BF 
G0BBB1G1 accu na het ANDen met GF 
BIBBHG1G accu na LSR-A (B2) 


De nieuwe waarde van X is @2 en gaat naar het X-register; de waarde van Y 
neemt de plaats van X in de accu in. Er staat dus @5 in de accu en dat is 
ongelijk aan nul. Dus leidt de aansluitende BPL ons naar KEYIND. We 
verlagen X met 1; X was @2 en wordt dus @1. Hetgeen via de daarop 
volgende BNE een sprong oplevert naar KEYINC. Daar wordt bij A(=Y) 67 
opgeteld: 


101 (=05) vòòr het optellen 

111 07 

11 carry 

18% na het optellen 

Het vervolgens verlagen van X tot Öd leidt ertoe dat na de BNE geen 
nieuwe sprong naar het optelgedeelte volgt; GETKEY is afgewerkt en dat 
maken we de computer duidelijk met een RTS. 

En u ziet het: in de accu staat QC, de toetswaarde van toets C, de toets die 
was ingedrukt. 


Naarmee hoofdstuk 7 uit is, en de 181 bytes van de monitor-hoofdroutine 
en de 152 bytes van de monitor-subroutines zijn behandeld. Hetgeen 
echter, bij elkaar opgeteld nog niet de 1024 bytes van de EPROM oplevert. 
Waarmee dus dit boek nog niet uit is. 
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ö 
Het editorprogramma 


de intelligentie, nodig voor het domme werk 


Wat komt er allemaal voor de junior-computer bij kijken als er 
tijdens het editen een funktietoets is ingedrukt? Wat speelt er 
zich tijdens het editen allemaal af binnen een deel van de 
EPROM en in het werkgeheugen? Wat is eigenlijk die “”domme- 
kracht’, die ons zoveel vervelend werk bij het intoetsen van een 
programma uit handen neemt? 

Vragen, die in dit hoofdstuk zullen worden beantwoord. Ook 
nu zal net als in hoofdstuk 7 blijken dat bepaalde subroutines 
van het editorprogramma (de editor) niet alleen leuk zijn voor 
de junior-computer, maar ook voor de gebruiker, als deel van 
een gebruikersprogramma. 

Het verhaal van de editor, byte voor byte verteld. 


Van de drie programma's in de EPROM van de junior-computer, te weten 
de monitor, de editor en de assembler, neemt de editor, inklusief de 
bijbehorende subroutines verreweg de meeste geheugenplaatsen in beslag. 
Er komt dus wèl wat bij kijken om het de gebruiker bij het intoetsen van 
zijn programma's zo gemakkelijk mogelijk te maken! Zoveel zelfs dat er 
twee hoofdstukken voor nodig zijn: dit hoofdstuk en hoofdstuk 9 (over 
de assembler), om het allemaal byte voor byte uit de doeken te doen. 

In hoofdstuk 5 hebben we al leren omgaan met de editor als een machtig 
stuk gereedschap. En moge het misschien bij andere gereedschappen zo 
zijn dat de nadruk ligt op het gebruik ervan en dat kennis van de werking 
nauwelijks een rol speelt, bij het gereedschap, genaamd editor is dat 
laatste pertinent niet het geval. Al is het alleen al vanwege uitgekiende 
subroutines zoals GETBYT, waarmee de gebruiker in zijn programma’s 
een hoop plezier kan beleven. Maar ook het detail-inzicht in “hoe ze dat 
hebben gedaan” verschaft de gebruiker een zeer goed uitgangspunt voor 
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de ontwikkeling van eigen programma’s, van datgene dat het jargon ‘user 
software’’ noemt. 

Goed, we gaan het hebben over de editor. Er zijn vijf funktietoetsen en 
dus vijf funkties, namelijk SEARCH, INSERT, INPUT, SKIP en DELETE. 
De editor zal er op een of andere manier voor moeten zorgen dat het 
indrukken van zo’n toets tot passende aktie leidt. Nu is het indrukken 
van een funktietoets op zich niet voldoende (met uitzondering van SKIP 
en DELETE); het indrukken van een funktietoets zal pas tot iets leiden 
als er vervolgens twee, vier of zes toetsen zijn ingedrukt. Die numerieke 
toetsen horen bij een instruktie van één, twee of drie bytes lang (INSERT, 
INPUT) of bij een op te sporen patroon van twee bytes (SEARCH). 
Voordat de editor-hoofdroutine en de diverse subroutines zullen worden 
besproken eerst een korte maar krachtige omschrijving van het editor- 
gebeuren. Een omschrijving, die niet in hoofdstuk 5 thuis hoort omdat 
daar de nadruk ligt op het gebruik van het gereedschap, hier op de werking 
ervan. 


De editor 


Korte karakterschets 


Na het editen is het werkgeheugen vanaf een zeker door de gebruiker 
opgegeven beginadres gevuld met instrukties. Zonder gebruik van de 
assembler komen er alleen echte instrukties voor, mèt de assembler ook 
pseudo-instrukties (labels). De gebruiker heeft vooraf ook een eindadres 
opgegeven en dus samen met het beginadres een geheugenbereik opgegeven. 
Het (laatste) operand-byte van de laatste instruktie (dat is die met het 
hoogste adres) wordt opgevolgd door een “End of File character" 77 
(EOF), zodat de assembler straks weet waar het programma is opgehouden. 
Uit hoofdstuk 5 is bekend dat na de geheugenplaats met die EOF nog 
tenminste zes ongebruikte geheugenplaatsen moeten volgen, de plaats 
waarop de eindadreswijzer staat gericht meegerekend. Zijn er minder of 
geen plaatsen over dan komen we in de problemen. 

Die hele reeks van instrukties en labels is ontstaan door het herhaald 
opgeven van instrukties aan de junior-computer met de INSERT- of 
INPUT-toets in kombinatie met twee, vier of zes numerieke toetsen. 
Telkens als een instruktie is ingetoetst breidt de bezette geheugenruimte 
zich uit met één, twee of drie geheugenplaatsen, afhankelijk van de lengte 
van de opgegeven instruktie. Die uitbreiding heeft een overeenkomstige 
verplaatsing van het afsluitende EOF-teken tot gevolg. De uitbreiding vindt 
overigens plaats vóórdat de tussengevoegde (INSERT) of toegevoegde 
(INPUT) instruktie in het geheugen wordt gezet, waarmee voorkomen 
wordt dat geheugenplaatsen overschreven en daarmee kwa inhoud af- 
geschreven worden. 

Het effekt van een DELETE, het verwijderen van een instruktie, is een 
inkrimping van de bezette geheugenruimte met een aantal geheugen- 
plaatsen dat overeenkomt met het aantal bytes dat de verwijderde instruk- 
tie lang is. Ook nu past de EOF zich aan aan de nieuwe situatie. 

De SEARCH-funktie is er voor het opsporen van een patroon van twee 
bytes. Dat kan de opcode + eerste of enige operand-byte zijn of de pseudo- 
opcode FF + labelnummer. Het opsporen start bij het beginadres. De 
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andere bekijktoets is SKIP, die na indrukken de volgende instruktie in 

het display te kijk zet. 

Zowel de SEARCH- als de SKIP-funktie kennen een foutmelding. Er 

verschijnt EEEEEE op het display als het gezochte byte-patroon niet 

aanwezig is (SEARCH) of als er geen instruktie is om te bekijken, simpel 
omdat de laatste instruktie van het programma zojuist is bekeken (SKIP). 

In hoofdstuk 5 zijn we ze al tegengekomen, maar we noemen ze hier nog 

eens, met wat meer bijzonderheden: we bedoelen de diverse adreswijzers. 

Dat zijn: 

1) BEGAD; BEGADL ligt in 9E2 en BEGADH in 6OE3. Dit is de door de 
gebruiker vooraf opgegeven beginadreswijzer; de ene begrenzing van het 
geheugenbereik. 

2) ENDAD; ENDADL ligt in GOE4 en ENDADH in 9OE5. De eveneens 
door de gebruiker opgegeven eindadreswijzer; de andere begrenzing van 
het geheugenbereik. 

3) CURAD; CURADL ligt in OOE6 en CURADH in DPE7. De kreet 
CURAD is afkomstig van het engelse “current address”, hetgeen “het 
adres van het moment” of ‘“momentaan adres” betekent. De wat 
handiger uitdrukking var/abele adreswijzer voor CURAD dekt de lading 
net zo goed als het begrip displaywijzer, zoals in hoofdstuk 5 gebruikt. 
Immers, de variabele adreswijzer staat uiteindelijk altijd gericht op de 
geheugenplaats met de opcode of de pseudo-opcode (FF) van de 
instruktie die of het label dat te zien is op het display. Het zal duidelijk 
zijn dat CURAD gedurende het editen verandert, 

4) CEND; CENDL ligt in GOE8 en CENDH in GOES. Dat is de variabele 
eindadreswijzer. Het woord zegt het al: ook deze wijzer verandert 
onder invloed van een INSERT, INPUT of DELETE. Hij staat altijd 
gericht op de hoogste onbezette plaats van het werkgeheugen, dus op 
de onbezette plaats met het /aagste adres. Eén plaatsje hoger staat de 
“rode lantarendrager”’ 77, het EOF-teken. 

De displaywijzer en de variabele eindadreswijzer worden bij het starten 
van de editor in een bepaalde beginpositie geplaatst. Dat wil zeggen: bij 
de koude start van de editor, die tenminste één keer tijdens een computer- 
sessie voorafgaand aan het editen moet worden doorlopen. De warme 
start is er voor een terugkeer naar de editor tijdens een sessie bij een 
ongewijzigd geheugenbereik. Die beginsituatie nu is dat CURAD net als 
BEGAD staat gericht op het startadres; de bijbehorende geheugenplaats 
wordt geladen met 77, dezelfde 77 die we na een koude start van de 
editor in beeld zien verschijnen. De wijzer staat gericht op de hoogste 
onbezette geheugenplaats; gezien de 77 op het startadres is CEND gelijk 
aan BEGAD + 1. Het staat trouwens allemaal ook in figuur 2a. Een terug- 
keer naar de editor via een warme start geeft geen 77 op het display en 
de variabele wijzers worden in een stand aangetroffen die ongewijzigd is 
ten opzichte van de toestand bij het verlaten van de editor (via indrukken 
van RST tot stand gekomen). 

De displaybuffers spelen in dit hoofdstuk een andere rot dan in hoofdstuk 

7. Ook nu gaat het om POINTH, POINTL en INH. Ook nu is POINTH 

“verbonden” met de displays Dil en Di2, POINTL met de displays Di3 en 

Di4 en INH met Dib en Di6 (ter herinnering: de nummering van de dis- 

plays is van links naar rechts). Maar voor de rest zijn er alleen maar ver- 
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Figuur 1. Het verschil tussen INPUT en INSERT in beeld gebracht. Bij INPUT 
(figuur 2b) wordt de instruktie LDA IMM FF toegevoegd en bij INSERT (figuur 2c) 
tussengevoegd. Figuur 2a geeft de beginsituatie weer. 


schillen met hoofdstuk 7: door het intoetsen van numerieke toetsen 
wordt het display van links naar rechts gevuld; (nog) ongebruikte plaatsen 
op het display zijn leeg (bijbehorende displays gedoofd). En verder schuift 
eenmaal ingetoetste data niet door naar rechts als er nieuwe data is inge- 
toetst, maar vult de lege plaats op rechts van het laatst ingetoetste byte. De 
funktie van de displaybuffers is als volgt: 

POINTH: opcode van de instruktie of de pseudo-opcode van een label. 
POINTL: eerste operand-byte (indien aanwezig) of labelnummer. 

INH: tweede operand-byte (indien aanwezig) of begrenzerbyte. 

Voordat we in de editor-software duiken eerst nog een paar opmerkingen 
over het verschil tussen INSERT en INPUT, in het algemeen en bij het 
editen van de eerste instruktie, en over DELETE. 

In figuur 1 is, uitgaande van de beginsituatie volgens figuur 1a, aangegeven 
wat er in het werkgeheugen allemaal aan de hand is na het ingeven van de 
instruktie LDA#FF via een INPUT (figuur 1b) en een INSERT (figuur 1c). 
Duidelijk is te zien dat bij INPUT de instruktie in het geheugen komt op 
plaatsen, direkt volgend op de voordien gedisplayde instruktie (instruktie 3 
van figuur la). Bij INSERT komt de nieuwe instruktie te staan op 
plaatsen, direkt voor de voordien gedisplayde instruktie. In figuur 1 is 
ook te zien hoe de nieuwe positie van CEND en de EOF is na de INPUT 
en de INSERT. 

In hoofdstuk 5 is gezegd dat de eerste in te toetsen instruktie na een koude 
start van de editor altijd via een INSERT moet plaats vinden. In figuur 2 
is te zien waarom. Uitgaande van de beginsituatie van figuur 2a laat deze 
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Figuur 2. Het verschil tussen INPUT en INSERT, toegespitst op de situatie aan het 
begin van het editen. Het INPUTten van de eerste instruktie heeft tot gevolg dat het 
End of File-teken 77 niet doorschuift en dat is een situatie die problemen geeft 

bij het uitvoeren van het gebruikersprogramma. De pseudo-opcode 77 krijgt een 
instruktietengte 1 toegekend. Het INSERTen van de eerste instruktie (figuur 2c) is 
korrekt. 
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Figuur 3. Het verwijderen van een instruktie uit het werkgeheugen (DELETE). De 
inhoud van alle bezette plaatsen, volgend op de te verwijderen instruktie, schuift een 
of meerdere plaatsen op omhoog. De op de verwijderde instruktie volgende instruktie 
verschijnt na afloop op het display. 
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zien wat er gebeurt na het ingeven van label FF 15 0® via een INPUT 
(figuur 2b) en een INSERT (figuur 2c). De INSERT is korrekt: het EOF- 
teken schuift netjes naar beneden. De INPUT niet: de EOF blijft zitten 
waar-ie zat. En dat heeft zeer vervelende gevolgen. Er is geen afsluitende 
EOF en er komen problemen, namelijk als men het programma wil starten. 
Het getal 77 is net als FF een pseudo-opcode, dus de opcode van een niet 
bestaande instruktie en de programmatelter verzet geen poot naar de 
volgende, échte eerste instruktie van het programma. Met andere woorden: 
het programma is pas op gang te brengen door het startadres met 1 te 
verhogen. Dat is bij een INSERT allemaal niet nodig. Vandaar. 

In figuur 3 is het effekt van een DELETE te zien. Nadat de instruktie 
LDA#FF is verwijderd komt de instruktie, volgend op de verwijderde 
instruktie in beeld. Ook is de verandering van de stand van CEND te 
zien. | 


Het editor-hoofdprogramma 


Globaal overzicht 


Voordat er op de details van de editor-hoofdroutine wordt ingegaan is 
het nuttig om er eerst een soort blokschema van te geven, en te bespreken. 
Het staat in figuur 4. 

Vergelijken we deze figuur met figuur 1 van hoofdstuk 7, waar het gaat om 
een soortgelijk overzicht van de monitor, dan zijn er overeenkomsten en 
verschillen. Eerst de overeenkomsten. Het voorbereidend werk (warming 
up) na label EDITOR van figuur 4 is eigenlijk hetzelfde als de RESET- 
routine van de monitor. Verder lijkt label CMND, als centraal punt en 
eigenlijk beginpunt sterk op label START van de monitor. En ook de 
akties die verlopen tussen CMND en SEARCH van figuur 4 (displayen 
van de laatste stand van zaken en wachten op nieuw toetswerk) lijkt ver- 
duiveld veel op blok C van figuur 1 van hoofdstuk 7. Trouwens, wat er na 
het label SEARCH volgt ook al: achtereenvolgens worden alle funktie- 
toetsen op aanwezigheid (dus op het als laatste ingedrukt zijn) getest. 

Maar dan hebben we de overeenkomsten met de struktuur van de monitor 
wel zo'n beetje gehad. De verschillen: Er is geen duidelijk aanwezige 
uitgang van het editorprogramma. Ben je er eenmaal naartoe gesprongen 
via een warme of koude start, dan lijkt het net alsof je er nooit meer uit 
kunt komen (zoals met GO bij de monitor wél het geval is). Schijn 
bedriegt: het indrukken van de toets RST leidt tot de terugkeer uit de 
editor naar de monitor. 

Er zijn nog meer verschillen. Het label ERRA hoort bij een foutmeldings- 
routine, die gedurende een zekere tijd het display volgooit met E's, ten 
teken dat er iets mis is. Dat is zo als na het volledige doorlopen van het 
gebruikersprogramma (SEARCH) op zoek naar een bepaald patroon van 
twee bytes dat patroon niet aanwezig blijkt te zijn. Ook na het bekijken 
(SKIP) van de laatste instruktie van het gebruikersprogramma (CEND 
wijst erop dat het op een gegeven moment zo ver is) komt er een fout- 
melding. De derde mogelijkheid tot een foutmelding is de aanwezigheid 
van een zogenaamde “valse toets”. Daar hebben we het in hoofdstuk 7 
al over gehad. 
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Er is nog een verschil met het globale schema van de monitor. Er worden 
in figuur 4 weliswaar funktietoetsen op als laatste ingedrukt zijn getest, 
maar waar blijven de numerieke toetsen? Hoe zit dat? Die zijn toch erg 
belangrijk voor het ingeven van opcodes en operand-bytes? Stelt u zich 
gerust: numerieke toetsen worden echt wel behandeld, maar dat gebeurt 
binnen de toetsroutines van SEARCH, INSERT en INPUT. We verklappen 
het alvast maar: de subroutine GETBYT neemt numerieke toetsen in 
ontvangst; sterker zelfs: alleen numerieke toetsen worden geaccepteerd en 
funktietoetsen niet. Dat laatste heeft tot gevolg dat vanuit de drie zojuist 
genoemde toetsroutines (precies die toetsfunkties die gekoppeld zijn aan 
In te toetsen data) lijnen met pijlen lopen naar een tweede centrale punt, 
te weten label SEARCH. 
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Figuur 4. Het blokschema van de editor. 
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Het editorprogramma 


De details 


De rest van dit hoofdstuk is gewijd aan de gedetailleerde bespreking van de 
editor-hoofdroutine en de bijbehorende subroutines. Er zal vaak verwezen 
worden naar figuur 5, het gedetailleerde stroomdiagram van de editor- 
hoofdroutine (minus de “opwarmroutine” bij een koude start, die in 
figuur 6 staat). Een aantal subroutines zal, waar dat voor de uitleg zinvol 
werd geacht, “tussendoor”, middenin de bespreking van bijvoorbeeld 
een toetsroutine worden besproken als een noodzakelijk intermezzo 
(een soort “tekst-subroutine’’, inklusief een JSR en een RTS!) 


Koude start 


Warming up 
In figuur 6 staat het gedetailleerde stroomdiagram van het programmadeel, 
dat na een koude start wordt doorlopen. We beginnen met de subroutine 
BEGIN van figuur 7, die uit zegge en schrijve vier instrukties bestaat. Haast 
de moeite niet om er een subroutine van te maken ware het niet dat hij 
nog een keer vanuit de editor en ook vanuit de assembler wordt aan- 
geroepen. De subroutine BEGIN zorgt ervoor dat de displaywijzer CURAD 





(DELETE) » 


SKIP- 
toets- 
routine 


DELETE- 
toets- 
rautine 







foutmel- 
ding 


80915-8-4 


131 


(fig. 6) 
\ 


warme start 


ÍCCA... 1D4C 


ee vn _) eme: 


nee 


Lie 
[eevovr Jore: 

















PN 
[LL serevr | 


byte 1 > POINTH 


STA — POINT LI byte 2 ->POINTL 
| BEGIN IFcuRAD:=BEGAD 


SELOOP 


LDY #49 


CMP — POINTH 


nee OO 
ja 


CMP — POINT L 


7 
byte 1 2 POINTH 






| opPten || BYTES € instruktielengte 
| 


alle instrukties behandeld? 













INSERT 


| Fnuws | nieuwe instr. 


—> werkgeheugen 


CURAD < CURAD + inh BYTES 


ja 
| RoiNsT || iees nieuwe instr. 
En er 1E)? 
je 


eme +75) (eor): 


nee 


@ 
je 
| RDINST | tees nieuwe instr. 


Í OPLEN | lengte oude instr. 
Í NEXT Ì verplaats CURAD 
LDA — TEMPXI A — TEMPX 
STA —-BYTES[ A —BYTES 

| FILL WS | nieuwe instr. 


> werkgeheugen 


Figuur 5. De hoofdroutine van de editor, zonder het programmadeel dat wordt 
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Figuur 6. Het programma dat wordt afgewerkt na een koude start van de editor. 


samenvalt met de beginadreswijzer BEGAD, dus dat beide wijzers staan 
gericht op de geheugenplaats met het startadres van het gebruikerspro- 
gramma. | 

Vervolgens wordt met behulp van het X- en Y-register de variabele eind- 
adreswijzer CEND gelijk gemaakt aan CURAD +1. Dat is een logische 
stand als men bedenkt dat straks de geheugenplaats, aangewezen door 
CURAD, met 77 wordt geladen; CEND wijst dan inderdaad op de hoogste 
onbezette geheugenplaats van het werkgeheugen. 

Hoe wordt CEND gelijk gemaakt aan CURAD + 1? Eerst wordt BEGADL 
met 1 verhoogd. Was BEGADL voor de verhoging FF dan wordt deze 00 
en moet ook BEGADH worden verhoogd met één (carry). Deze situatie 
wordt getest met een BNE en leidt eventueel tot een verhoging van Y 
(=BEGADH) met 1 (INY). Twee store-instrukties zorgen er vervolgens 
voor dat de inhoud van CENDL en CENDH de waarde van X resp. Y bevat. 
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Figuur 7. De subroutine BEGIN zorgt ervoor dat de displaywijzer CURAD op 
dezelfde plaats staat gericht als de beginadreswijzer BEGAD. 


De drie laatste instrukties van dit programmadeel zorgen voor het via de 
accu laden van de geheugenplaats, aangewezen door CURAD, met het 
EOF-teken 77. En aangezien CURAD gelijk is aan BEGAD, bevat de eerste 
geheugenplaats de data 77, geheel in overeenstemming met figuur 2a. 


Displays en toetsen 


De subroutine SCAN 


Het gedeelte in de figuren 4 en 5 tussen de labels CMND en SEARCH 
houdt zich bezig met het displayen van de inhoud van 1, 2 of alle drie 
de displaybuffers en met het vaststellen van een nieuwe ingedrukte toets 
en het vaststellen welke toets dat dan wel was. Alle werkzaamheden in 
het kader daarvan zijn terug te vinden in de subroutine SCAN, waarvan 
figuur 8 het gedetailleerde stroomdiagram te zien geeft. | 

Het begint allemaal met het laden van X met @2 en van Y met 00. Het 
nut daarvan is dat in het volgende programmadeel, vanaf label FILBUF 
de inhoud van drie opeenvolgende geheugenplaatsen wordt gekopieërd 
in de drie displaybuffers. De volgorde: 

1) X=02 Y =D: inh plaats CURAD —>POINTH (OOFB) 

2) X=01 Y=D1: inh plaats CURAD+1 —POINTL (GOFA) 

3) X=0H Y =D2: inh plaats CURAD+2 —INH (ÓOF9) 

4) X=FF; de BPL staat niet meer op springen en we gaan door naar 
OPLEN, een subroutine die op grond van de opcode op de plaats, aan- 
gewezen door CURAD vaststelt uit hoeveel bytes de instrukties bestaat 
(bespreking van OPLEN verderop in dit hoofdstuk). De lengte van de 
instruktie staat in de RAM-geheugenplaats BYTES (@QF6). Is de in- 
struktielengte bekend, dan is ook bekend of er direkt, in SCANDS alleen 
POINTH (opcode), POINTH en POINTL ((eerste) operandbyte) of alle 
drie displaybuffers moeten worden gedisplayed. 
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Zoals gezegd, dat gebeurt in de subroutine SCANDS. Dat is een oude 
bekende van hoofdstuk 7, namelijk de subroutine SCAND minus het eerste 
stukje ervan, dat zich bezig houdt met het laden van displaybuffer INH 
met de inhoud van de geheugenplaats, aangewezen door POINT. Dat 
stukje is hier niet van toepassing. In wezen is SCANDS, met al zijn sub- 
routines al besproken in hoofdstuk 7 en daar verwijzen we naar. Waar het 
om gaat is dat er één, twee of drie displaybuffers zijn te zien en dat na 
afloop van SCANDS aan de accu is te zien of er een toets is ingedrukt 
(accu-inhoud ongelijk aan nul) of niet (accu-inhoud nul). 

Ook de rest van SCAN komt ons zeer bekend voor van hoofdstuk 7. Voor 
de details verwijzen we daar nu ook naar. De eerste SCANDS plus BNE 
wordt doorlopen zolang de laatst ingedrukte toets niet is losgelaten; de 
tweede SCANDS plus BEQ wordt doorlopen zolang er geen nieuwe toets 
is ingedrukt en zodra dat wel het geval is wordt de derde SCANDS + BEO 
één keer doorlopen in het kader van de toetsdenderonderdrukking. De 
aansluitende subroutine GETKEY zorgt ervoor dat de toetswaarde van de 
ingedrukte toets in de accu komt te staan. 

Voor de edit-funktietoetsen gelden de volgende toetswaarden: 

SEARCH: toetswaarde 14; zelfde waarde als PC 

INSERT: toetswaarde 10; zelfde waarde als AD 

INPUT: toetswaarde 13; zelfde waarde als GO 

SKIP: toetswaarde 12; zelfde waarde als + 

DELETE: toetswaarde 11: zelfde waarde als DA 

Het testen op een bepaalde toets gebeurt met de instruktie CMP # (toets- 
waarde), gevolgd door de instruktie BNE, die leidt tot het afwikkelen van 
de bijbehorende toetsroutine (zie figuur 5). 


EEEEEE! 


Foutmelding 


Het programmadeel met label ERRA van figuur 5 wordt afgewikkeld 
zodra er aanleiding is voor een foutmelding. De drie verschillende aan- 
leidingen zijn al genoemd. Via de accu worden de drie displaybuffers 
geladen met EE en met het laden van BYTES met 93 wordt te kennen 
gegeven dat alle drie displaybuffers te zien moeten zijn. Het aansluitende 
gedeelte ERRB bestaat uit een lus met SCANDS. Zoals we net nog bij 
SCAN hebben gezien betekent dit dat er EEEEEE op het display is te zien 
zolang de toets, waarvan het indrukken aanleiding gaf tot de foutmelding, 
niet is losgelaten. Is dat wel het geval dan gaat het met een JMP terug naar 
het centrale punt CMND van de editor. 


Rest nog de bespreking van de vijf toetsroutines SEARCH, INSERT, 
INPUT, SKIP en DELETE. 
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De SEARCH-toetsroutine 


Het opsporen van twee bytes 


Zodra in figuur B na CMP#14 blijkt dat we te doen hebben met een in- 

gedrukte SEARCH-toets weten we dat de bijbehorende toetsroutine het 

volgende moet doen: 

1) weten welk patroon van twee bytes moet worden opgespoord; 

2) dit patroon gaan opsporen vanaf CURAD en stoppen zodra het is 
gevonden; 

3) een foutmelding geven als het patroon helemaal niet aanwezig blijkt te 
zijn. 

Punt 1 is het eerste aan de orde. Twee keer achterelkaar wordt de hulp 

ingeroepen van de subroutine GETBYT. Laten we die eerst maar eens gaan 

bespreken. 


Intermezzo 1: de subroutine GETBYT 


Twee datanibbles halen 


Het gedetailleerde stroomdiagram van GETBYT staat in figuur 9. Deze 
subroutine heeft als taak het vullen van de accu met de toetswaarden 
van twee ingedrukte numerieke toetsen. Funktietoetsen worden ge- 
_weigerd. De toetswaarde van de eerste numerieke toets gaat het linker 
nibble van de accu-inhoud vormen, die van de tweede numerieke toets 
het rechter nibble. Figuur 9 begint met de aanroep van de subroutine 
SCANA. Dat is het tweede deel van de al besproken subroutine SCAN van 
figuur 8, dat zich bezig houdt met het vaststellen van a} het loslaten van de 
oude toets; b) het indrukken van een nieuwe toets; c) de toetswaarde van 
de nieuwe toets. 

Funktietoetsen hebben een toetswaarde groter dan of gelijk aan 10 en 
numerieke toetsen een toetswaarde van @F of minder. Het is dus met een 
CMP IMM 1@ plus een BPL mogelijk om de schapen van de bokken te 
scheiden. Is het een funktietoets dan gaat het meteen richting RTS; de 
N-viag is dan nul. Zoniet dan ís het een numerieke toets en omdat het om 
de eerste numerieke toets gaat moet de accu veranderen van @X in X): de 
toetswaarde X van de eerste numerieke toets moet het linker nibble 
worden van de accu-inhoud. Dat gebeurt door vier ASL-A's achterelkaar. 
De nieuwe accu-inhoud wordt opgeborgen in de RAM-plaats NIBBLE 
(GOFE). 

En dan maar wachten op een tweede toets; SCANA wordt voor een 
tweede keer aangeroepen. Ook nu weer de test op funktietoetsen, welke 
laatste “afgaan door de zijdeur”. De accu-inhoud is nu gelijk aan OY, 
met Y de toetswaarde van de tweede numerieke toets. In NIBBLE staat 
Xd, met X de toetswaarde van de eerste numerieke toets. De instruktie 
ORA-NIBBLE levert dus na afloop de accu-inhoud XY op. Precies wat we 
wilden hebben. De op RST na laatste instruktie van GETBYT en van 
figuur 9 is LDX IMM FF. Het enige nut daarvan is het 1 maken van de 
N-vlag. 

N.B. GETBYT is een zeer universele subroutine voor “doe-het-zelf-soft- 
ware ”’! 
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Figuur 8. De subroutine SCAN houdt zich bezig met het op het display zetten van 
de inhoud van 1, 2 of alle drie displaybuffers,en met het vaststellen en identificeren 


van een nieuwe ingedrukte toets. 
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Figuur 9. De subroutine GETBYT vult de accu met de toetswaarden van twee achter 
elkaar ingedrukte numerieke toetsen. 


RTS: terug naar de SEARCH-toetsroutine 


Na de eerste GETBYT-aanroep is de N-vlag nul als er niet twee numerieke 
toetsen achterelkaar zijn ingedrukt; de N-vlag is 1 ats dat wel het geval is. 
Zoals u weet is een BPL zeer gevoelig voor de toestand van de N-vlag. Er 
kan dus mee worden besloten om terug te gaan naar het label SEARCH 
(zie figuur 5), indien er een funktietoets tussen kwam, of het zojuist 
ingegeven byte (N=1) als deel van het op te sporen patroon van twee 
bytes verder te behandelen. In het laatste geva! gaat de inhoud van de accu 
(= XY, weet u nog wel?) naar displaybuffer POINTH. Met andere woorden: 
het zojuist geaccepteerde byte is het eerste byte van het patroon en komt 
overeen met de opcode van de op te sporen instruktie of met de pseudo- 
opcode FF van een label. 
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En dan volgt een tweede sprong naar GETBYT en een tweede BPL, voor 
het ophalen van het tweede byte van het patroon. Dat wordt opgeslagen 
in de displaybuffer POINTL. Ook hier geeft een editor-funktietoets als die 
blijkt te zijn ingedrukt tijdens GETBYT een sprong terug naar label 
SEARCH. 

Het bytepatroon is nu aanwezig en punt 2 van het aktieplan van de 
SEARCH-toetsroutine (zie eerder) is nu aan de orde. Dat begint met 
BEGIN (figuur 7), het gelijk maken van CURAD en BEGAD oftewel 
het beginnen van de zoekaktie vanaf de eerste instruktie van het gebruikers- 
programma. 

Het volgende programmadeel van de SEARCH-toetsroutine, SELOOP 
wordt per instruktie één keer doorlopen totdat blijkt dat het zoekpatroon 
van twee bytes identiek is aan de opcode van de instruktie en aan het 
(eerste) operand-byte (of aan FF en het labeinummer). In het eerste deel 
van SELOOP wordt het eerste byte van het patroon vergeleken met de 
(pseudo-)opcode. Dat gebeurt door het laden van A met de inhoud van de 
geheugenplaats, waarop CURAD staat gericht en door die inhoud ver- 
volgens met behulp van de instruktie CMP-POINTH te vergelijken met de 
inhoud van die displaybuffer. Is dat niet het geval, dan leidt de BNE 
ons verder naar SEARA, verderop. Zijn de geheugeninhouden wel aan 
elkaar gelijk, dan is het een zinvolle zaak om te gaan kijken of het tweede 
byte van het opzoekpatroon soms gelijk is aan de inhoud van POINTL. 
Hoe? Door het laden van A met de inhoud van de geheugenplaats, aan- 
gewezen door CURAD+1 en door de inhoud van A vervolgens te ver- 
gelijken met die van POINTL: CMP-POINTL. Is ook het tweede byte gelijk 
aan de desbetreffende displaybufferinhoud, dan is de opsporingsaktie 
klaar; via een BEOQ wordt de SEARCH-toetsroutine verlaten en springen 
we naar CMND, waarna vervolgens tijdens SCAN de gezochte instruktie in 
beeld verschijnt. 

De kans is groot dat de voorstaande instruktie (vertaald in een bepaalde 
stand van CURAD) geen twee gemeenschappelijke elementen had met 
het opzoekpatroon. De volgende instruktie moet dan worden onderzocht. 
Dat gebeurt door het achtereenvolgens doorlopen van de subroutines 
OPLEN en NEXT, waarna het hele feest met SELOOP opnieuw begint, 
mits er nog een nog niet onderzochte instruktie aanwezig is. 

De subroutine OPLEN (figuur 19) bepaalt de instruktielengte van de 
zojuist onderzochte instruktie. Daarna is bekend hoeveel plaatsen CURAD 
vooruit moet om op de opcode van de volgende instruktie gericht te staan. 
Dat laatste gebeurt in de aansluitende subroutine NEXT, die we nu eerst 
bespreken. 


Intermezzo 2: de subroutine NEXT 


“De volgende graag” 
Het gedetailleerde stroomdiagram van NEXT staat in figuur 10. Na het 
nul maken van het carrybit (CLC) wordt bij de inhoud van CURADL de 
inhoud van BYTES opgeteld. De toestand van de carryvlag bepaalt of de 
inhoud van CURADH met 1 wordt verhoogd of niet. Het eind van het 
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80915-8-10 


Figuur 10. De subroutine NEXT zet de displaywijzer CURAD een aantal plaatsen 
vooruit, dat gelijk is aan de relevante instruktielengte: de inhoud van BYTES. Verder 
wordt gekeken of CURAD hoger staat in het werkgeheugen dan de variabele eind- 
adreswijzer CEND. 


liedje is in ieder geval dat CURAD de inhoud van BYTES plaatsen verder- 
op staat. 

Het tweede deel van NEXT stuurt de N-vlag door de inhoud van CURAD 
min die van CEND te berekenen (twee keer SBG, rekening houdend met 
borrow), dus door te kijken of de displaywijzer CURAD op een hogere 
plaats dan CEND staat gericht of dat ze beide op dezelfde plaats van het 
werkgeheugen staan, namelijk de hoogste onbezette plaats van het werk- 
geheugen. Staat CURAD hoger dan CEND, dan is het resultaat van de 
aftrekking negatief. Immers, het adres van CURAD is dan /ager dan dat 
van GEND! Dus na de RTS is: 

1) N=1 als CURAD hoger staat dan CEND 

2) N= als CURAD en CEND samenvallen 

3) de stand van CURAD BYTES plaatsen lager 


RTS: weer terug naar de SEARCH-toetsroutine 
Na het doorwerken van NEXT zijn alle voorbereidingen getroffen voor 


het bekijken van de nieuwe instruktie. Dat is een zinvolle zaak als bij 
het verlaten van NEXT de N-vlag 1 is (CURAD staat hoger dan CEND). 
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De instruktie BMI geeft in dat geval een sprong terug naar het al behandel. 
de programmadeel SELOOP. Is daarentegen N nul (CURAD valt samen 
met GEND), dan heeft het geen zin om verder te zoeken, domweg omdat 
er niets meer te zoeken valt. Het enige dat de editor te doen staat is de 
sprong via BPL naar ERRA, voor een foutmelding. Dat is aktiepunt 3 
van de SEARCH-toetsroutine. 


De INSERT-toetsroutine 


Instrukties tussenvoegen 


Voor de instrukties van de INSERT-toetsroutine verwijzen we ook nu weer 
naar figuur 5, het hoofdprogramma van de editor. Zodra na CMP IMM 13 
blijkt dat het om een ingedrukte INSERT-toets gaat wordt er passende 
aktie ondernomen. 

Wat moet er allemaal gebeuren nadat de INSERT-toets is ingedrukt? De 

aktiepunten: 

1) kom aan de weet welke instruktie in het werkgeheugen moet worden 
gezet; 

2) plaats deze instruktie in het geheugen op een plaats of plaatsen direkt 
voor de instruktie die vlak voor het indrukken van INSERT op het dis- 
play staat. 

Punt 1 is het eerst aan de orde. Daarvoor hebben we een leuke subroutine 

in huis. Die zal nu worden besproken. 


Intermezzo 3: de subroutine RDINST 


Het gedetailleerde stroomdiagram van RDINST staat in figuur 11. De 
subroutine heeft als taak het inlezen (RDINST = "read instruction’”) van 
de in het werkgeheugen in te voegen nieuwe instruktie. De 1, 2of 3 bytes 
van de instruktie worden in de daarvoor toegewezen displaybuffer(s) 
gezet. 

Figuur 11 begint met de aanroep van GETBYT, voor het ophalen van 
twee numerieke toetsen die de opcode van de instruktie vertegenwoor- 
digen. Een aansluitende BPL reageert op de N-vlag. Wordt er tussendoor 
een funktietoets ingedrukt dan gaat het meteen naar AF(RTS). Zoniet, 
dan gaat de opcode naar POINTH. De subroutine LENACC (figuur 19), die 
vervolgens wordt aangeroepen, maakt deel uit van de (nog in detail te 
bespreken) subroutine OPLEN. Na terugkeer daaruit is de instruktie- 
lengte van de instruktie bekend via het bekijken van de zojuist bekend 
geworden opcode. De lengte staat in het Y-register en in de RAM-plaatsen 
BYTES, COUNT en TEMPX. 

En dan het verlagen van de inhoud van COUNT met 1. Een direkt daarop 
volgende BEO gaat na of het soms een 1-byte-instruktie is (dus of COUNT 
OP is geworden). Zoja: dòòr naar label RDA, bijna aan het eind van de 
subroutine; zonee: weer naar GETBYT voor het ophalen van het (eerste) 
operandbyte. De aansluitende BPL dient ook hier voor het “kortsluiten” 
van een funktietoets. Het opgehaalde byte gaat naar POINTL. 
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Figuur 11. De subroutine RDINST leest de data van een nieuwe toe- of tussen te 
voegen instruktie in. 
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Een tweede verlaging van COUNT met 1, gevolgd door een BPL test of 

het een 2-byte-instruktie is. Zoja: dòòr naar label RDA en zonee: haal het 

derde byte op (= tweede operandbyte) en zet het in INH. Ook nu wordt 

weer met een BPL een funktietoets uitgezeefd. 

De op RTS na laatste instruktie van RDINST is LDX IMM FF. Die maakt 

de N-vlag gelijk aan 1. 

Dus aan het eind van RDINST geldt: 

1) Het juiste aantal displaybuffers is gevuld met de opcode en met geen, 
één of twee operandbytes: 

2) N=® als er een funktietoets is ingedrukt: 

3) N=1 als 2, 4 of 6 numerieke toetsen zijn ingedrukt. 
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Figuur 12. De subroutine FILLWS plaatst de toegevoegde of tussengevoegde nieuwe 
instruktie in het werkgeheugen nadat daarvoor plaats is gemaakt. 
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RTS: terug naar de INSERT -toetsroutine 


Nadat de subroutine RDINST is afgewerkt test een BPL (springen als 
N=@) of er (in het geval van een tijdens RDINST ingedrukte funktie- 
toets) teruggegaan moet worden naar het label SEARCH (zie figuur 5) of 
dat de INSERT-toetsroutine verder moet worden afgewerkt. In het laatste 
geval is aktiepunt 1 van de INSERT-toetsroutine afgewerkt en is punt 2 
aan de orde. 

Alle werkzaamheden in het kader van punt 2 vinden plaats binnen de 
subroutine FILLWS. Die nu eerst gaat worden besproken. 


Intermezzo 4: De subroutines FILLWS en ADCEND 


Plaats maken en weer opvullen 


Het gedetailleerde stroomdiagram van FILLWS is te zien in figuur 12 en 
dat van de ín FILLWS aangeroepen subroutine ADCEND in figuur1 3. 


(C =d of 1) 
STA — CENDL 


CENDH — CENDH + C 


ADC # 90 


c 
LDA — GENDL 
ADC — BYTES CENDL - CENDL + BYTES 
STA - CENDH | 


80915-8-13 CEND + CEND + BYTES 





Figuur 13. De subroutine ADCEND maakt deel uit van de subroutine FILLWS van 
figuur 12. Deze verplaatst de variabele eindadreswijzer een aantal plaatsen naar 
beneden in het werkgeheugen. Hoeveel plaatsen hangt af van de lengte van de nieuwe 
instruktie. 


Het begint allemaal in figuur 12 met een derde subroutine, DOWN (figuur 
15). Die wordt later in dit hoofdstuk nog in detail besproken. Wat hier en 
nu van DOWN bekend moet zijn is dat de inhoud van alle geheugenplaatsen 
is verhuisd naar een plaats, 1, 2 of 3 plaatsen verderop in het werkge- 
heugen. Het gaat daarbij niet alleen om de geheugenplaatsen met de 
instrukties, volgend op de instruktie die op het display is te zien, maar 
ook om de plaats(en) met daarin de gedisplayde instruktie. 
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Hoeveel plaatsen moet er worden geschoven? Dât hangt af van de inhoud 

van BYTES, die in het geval van de INSERT-toetsroutine tijdens de 

voorgaande RDINST is aangepast aan de lengte van de nieuwe, in het 

werkgeheugen te zetten instruktie. 

Na afloop van DOWN zijn dus, afhankelijk van de inhoud van BYTES 

1, 2 of 3 geheugenplaatsen vrijgekomen. De aansluitende subroutine 

ADCEND (figuur 13) zorgt ervoor dat ook de variabele eindadreswijzer 

CEND datzelfde aantal plaatsen naar beneden opschuift. Dat gebeurt door 

eerst GENDL met de inhoud van BYTES op te hogen. De toestand van de 

carryvlag na afloop van de optelling bepaalt of bij CENDH 1 opgeteld 

wordt of niet. In elk geval staat CEND na afloop van ADCEND (de inhoud 

van) BYTES plaatsen lager. 

Het tweede deel van FILLWS heeft tot taak om de vrijgekomen 1, 2 of 

drie geheugenplaatsen te vullen met de inhoud van de 1, 2 of drie display- 

buffers, afhankelijk van de lengte van de tussen te voegen nieuwe in- 

struktie. Het begint met X=@2 en Y = 90. Achtereenvolgens gaat: 

1. de inhoud van POINTH naar de geheugenplaats, aangewezen door 
CURAD (X= 92; Y = 60); 

2. (afhankelijk van BYTES) de inhoud van POINTL naar de geheugen- 
plaats, aangewezen door CURAD +1 (X=D1 =Y}; 

3. (afhankelijk van BYTES) de inhoud van INH naar de geheugenplaats, 
aangewezen door CURAD + 2 (X= B@; Y = 62). 

Een vergelijking van Y met de inhoud van BYTES bepaalt of er nog een 

displaybuffer moet worden gekopiëerd (BNE en Z=0) of niet. In het 

laatste geval zijn we klaar (RTS) en is de Z-vlag gelijk aan 1. 


RTS: nog even terug naar de INSERT -toetsroutine 
De tijdens RDINST in de displaybuffers gezette nieuwe instruktie is tijdens 
de voorafgaande gang door FILLWS in het werkgeheugen gezet — nadat 
eerst plaats (WS = Work Space) is vrijgemaakt. Aan het eind van FILLWS is 
de Z-vlag 1 en de afsluitende instruktie BEQ van de INSERT-toetsroutine 
leidt tot een sprong naar het centrale punt CMND van de editor. Waarna 
vervolgens de nieuwe instruktie in het display verschijnt. 


De INPUT -toetsroutine 


Instrukties toevoegen 

(vergelijk INSERT: instrukties tussenvoegen) 
Bij de bespreking van de INPUT-toetsroutine is het niet nodig om er 
nieuwe, nog niet besproken subroutines bij te slepen. We kunnen ons 
daarom koncentreren op de verschillen tussen de INPUT-toetsroutine en 
de INSERT -toetsroutine. 
Wat moet er gebeuren? 
1. lees de nieuwe instruktie in; 
2. bereid de situatie voor dat de nieuwe instruktie in het werkgeheugen 

komt te staan op (een) plaats(en) direkt na de plaats(en) die zijn bezet 
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door de instruktie die op het moment van indrukken van de toets 
INPUT op het display staat; 
3. plaats de nieuwe instruktie in het werkgeheugen — nadat het nodige 
aantal plaatsen is vrijgemaakt. 
De INPUT -toetsroutine (zie figuur 5): 
Klus nummer 1 gebeurt door het aanroepen van RDINST: de nieuwe 
instruktie staat in de displaybuffers. Een op RDINST aansluitende BPL 
test of de INPUT-toetsroutine moet worden afgebroken na het indrukken 
van een editor-funktietoets (sprong naar het label SEARCH, zie figuur 5). 
Dit is allemaal al besproken bij de INSERT-toetsroutine. 
Dan aktiepunt 2. Dat is het aktiepunt dat INPUT extra heeft ten opzichte 
van INSERT (aktiepunt 3: FILLWS+BEOQ komt ook voor bij INSERT). 
Punt twee bestaat uit het achtereenvolgens doorlopen van de al besproken 
subroutines OPLEN (figuur 19) en NEXT (figuur 10), gevolgd door een 
LDA- en een STA-. In OPLEN wordt de instruktielengte uitgezocht van 
de instruktie die voor het indrukken van INPUT op het display stond (dus 
niet de lengte van de nieuwe instruktie!). De aansluitende subroutine 
NEXT zorgt voor de aanpassing van CURAD, afhankelijk van de lengte van 
de instruktie in het display, zodanig dat deze wijst op de nieuwe instruktie, 
die na afloop van de INPUT -toetsroutine op het display verschijnt. 
De aansluitende instrukties LDA-TEMPX en STA-BYTES zorgen ervoor 
dat — ter voorbereiding van aktiepunt 3 (FILLWS+BEO) de lengte van 
de nieuwe instruktie in BYTES komt te staan (die lengte is tijdens 
RDINST ook in de RAM-plaats TEMPX gezet). 
Ter afsluiting van de INPUT-toetsroutine en ter uitvoering van punt 3 
volgt net als bij INSERT de subroutine FILLWS plus BEO. Er wordt 
teruggesprongen naar CMND en de nieuwe instruktie is in het display te 
zien. 


De SKIP-toetsroutine 


instrukties bekijken 


Wat kon je ook weer met de SKIP-toets doen? Indrukken, met als gevolg 

dat de instruktie, direkt volgend op de instruktie die voordien in het 

display stond in beeld verschijnt. Met SKIPpen kan plaatsvinden vanaf 

een wiilekeurig punt ergens in het gebruikersprogramma. Het is ook 

mogelijk om vanaf het begin van dat programma te gaan instruktie-springen 

door met behulp van de toets SEARCH de eerste instruktie of label van 

het gebruikersprogramma op te sporen. Zo komt het programma instruktie 

voor instruktie in beeld. Wat leerzaam is. 

Het indrukken van SKIP hoeft niet te worden gevolgd door het ingeven 

van data met numerieke toetsen, zoals wel het geval is met SEARCH, 

INSERT en INPUT en ook niet het geval is bij DELETE. 

De SKIP-toetsroutine moet het volgende doen: 

1. springen naar de volgende instruktie; 

2. een foutmelding geven als naar de laatste instruktie van het gebruikers- 
programma is gesprongen en SKIP opnieuw wordt ingedrukt. 

De SKIP-toetsroutine lijkt als twee druppels water op het laatste stuk van 


147 


de SEARCH-toetsroutine. Hij omvat het afwerken van de subroutine 
NEXT en een ‘wissel’ (BMI plus BPL) die in de stand: richting CMND 
(display volgende instruktie) of in de stand: richting ERRA (foutmelding) 
komt te staan. Het is allemaal te zien in figuur 5. 

Wat deed NEXT ook weer? Deze subroutine (zie figuur 10) verplaatst 
de displaywijzer CURAD (de inhoud van) BYTES plaatsen lager in het 
geheugen; CURAD wijst dan op een plaats met een adres dat 1, 2 of 3 
hoger is dan het adres van de vorige positie van CURAD. Herinneren we 
ons nog eens dat CURAD wijst op de opcode van de gedisplayde instruktie 
en dat de nieuwe instruktie, die is vertaald in een nieuwe stand van 
CURAD, in het display verschijnt direkt nadat het centrale punt CMND 
van de editor is bereikt, dan is het een logische zaak dat na de terugkeer uit 
NEXT een sprong naar CMND volgt. Dat gebeurt ook, mits de N-vlag bij 
het verlaten van NEXT 1 is. Is die N-vlag namelijk nul, dan volgt een sprong 
naar ERRA en verschijnt er “"EEEEEE" op het display zolang de SKIP-toets 
is ingedrukt. 

De achtergrond van die N-vlaggengeschiedenis is dat tijdens het tweede 
deel van NEXT gekeken wordt of CURAD hoger staat dan de variabele 
eindadreswijzer CEND, of daarmee samenvalt. In het laatste geval wordt 
N nul en zoals gezegd, daar komt een foutmelding van. Een foutmelding 
omdat er geen volgende instruktie is, waarnaar kan worden gesprongen. 
Omdat de instrukties “op” zijn. | 


De DELETE-toetsroutine 


Instrukties verwijderen 
Het verwijderen van een instruktie gaat heel simpel in zijn werk. Het komt 


IEEA ... 1EF? 
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LDA — CENDL 
SBC — BYTES CENDL -CENDL — BYTES 
STA — CENDL 
LDA — CENDH 


CENDH <CENDH —C 


SBC # 90 


hj 


STA — CENDH 


CEND <CEND — BYTES 
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Figuur 14. De subroutine RECEND verplaatst de variabele eindadreswijzer een aantal 
plaatsen omhoog in het werkgeheugen. Het aantal hangt af van de instruktielengte 
van de te verwijderen instruktie (toepassing bij DELETE). 
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mee 


erop neer dat de 1, 2 of 3 geheugenplaatsen van een instruktie worden 
overschreven, door alle instrukties, volgend op de te verwijderen instruktie, 
in het werkgeheugen 1, 2 of 3 plaatsen omhoog te schuiven, zodat de rijen 
zich weer sluiten (wat zeer belangrijk is, wil het gebruikersprogramma 
werken!). 

De zojuist omschreven verhuispartij gebeurt in de subroutine UP, die 
later in dit hoofdstuk nog zal worden besproken (zie figuur 17). Na UP 
volgt de subroutine RECGEND; check het maar in figuur 5. Deze subroutine, 
waarvan alles is te vinden in figuur 14, past de positie van de variabele 
eindadreswijzer GEND aan aan de met 1, 2 of 3 bezette plaatsen inge- 
krompen programmaruimte. 

In RECEND wordt van de inhoud van CEND de inhoud van BYTES 
(= lengte van de inmiddels al verwijderde instruktie) afgetrokken. Eerst 
gaat er van CENDL 1, 2 of 3 af; daarna bepaalt de carry-vlag of de inhoud 
van CENDH eentje lager wordt of gelijk blijft. 

Rest een afsluitende sprong naar CMND en klaar is Kees. 


Nu zijn alle vijf toetsroutines besproken. Rest nog de bespreking van de 
subroutines DOWN, UP en OPLEN/LENACC. 


De subroutine DOWN 


Plaats maken 


Deze subroutine vormt een onderdeel van de subroutine FILLWS, die is 
gebruikt bij de INSERT- en INPUT-toetsroutine. Hij is instruktie voor 
instruktie te zien in figuur 15. Hij heeft tot taak het vrij maken van een 
aantal tot dan bezette geheugenplaatsen, die vervolgens zullen worden 
gebruikt voor het tussenvoegen (INSERT) of toevoegen (INPUT) van een 
instruktie. 

De bij DOWN horende verhuizing in het groot van neheuseniahedden is in 
figuur 16 voor een aantal geheugenplaatsen getekend; bij de bespreking 
van figuur 15 kunnen we van figuur 16 veel gemak hebben. 

Bij de subroutine DOWN (en ook later bij UP) is er gebruik gemaakt van 
de verhuisadreswijzer MOVAD. De eerste vier instrukties, namelijk twee 
opeenvolgende instrukties LDA ...STA, zorgen ervoor dat de inhoud 
van MOVAD gelijk is aan die van CEND, dus dat MOVAD op dezelfde 
geheugenplaats van het werkgeheugen staat gericht als CEND. Het is nu 
zover voor het programmadeel met label DNLOOP. 

Dat begint met het in de accu zetten van de inhoud van de geheugen- 
plaats, waarop MOVAD staat gericht: LDA-(MOVADL), Y met Y= gg. 
Vervolgens gaat de inhoud van BYTES naar Y. Wat bevatte BYTES ook 
al weer? Juist, de lengte van de toe te voegen of tussen te voegen nieuwe 
instruktie. En nu kan de eerste geheugeninhoud worden verhuisd: de 
inhoud van de accu gaat naar de geheugenplaats, Y plaatsen verder. Naar 
de geheugenplaats, die wordt aangewezen door MOVAD + BYTES: STA- 
(MOVADL), Y met Y = inhoud van BYTES. 

Dan kijken we of alle geheugenplaatsen al zijn verhuisd, dus of MOVAD 
tijdens de voorgaande dataverhuizing met CURAD samenvalt (zie figuur 
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LDA — CENDL MOVADL = 


CENDL 
STA — MOVADIL 


_LDA — CENDH } VR 


GENDH , 


MOVAD = CEND 


STA — MOVADH 


DNLOOP 


LDY #67 Yv gg 


LDA — (MOVADL),Y |A —inh pi EEN 
LDY — BYTES Y BYTES 
LDA — MOVADL 


A <-MOVADL, 







CMP — CURADL 


MOVADL Ì CURADL 


LDA — MOVADH | A <-MOVADH 


CMP — CURADH 2 
MOVADH - CURADH 


(mma) 


AK 


= 
® 


LDA — MOVADL FA <MOVADL 


SBC #41 MOVADL <—MOVADL — 1 
STA — MOVADL A >MOVADL 


LDA —-MOVADH Fa “MOVADH 


SBC # gg MOVADH <MOVADH — C 
STA — MOVADH | A —>MOVADH 


JMP — DNLOOP MOVAD <—-MOVAD — 1 


80915-8-15 


Figuur 15. De subroutine DOWN verhuist de inhoud van een aantal geheugenplaatsen 

naar een plaats, lager in het werkgeheugen (hoger adres). De exakte plaatsverschuiving 
hangt af van de lengte van de nieuwe instruktie. De plaats, aangewezen door CURAD, 
is de hoogste plaats waarvan de inhoud wordt verhuisd. 
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80915-8-16 





Figuur 16. Illustratie van de dataverhuizing zoals die plaatsvindt in de subroutine 
DOWN van figuur 15. Het eerste datatransport heeft nummer 1, het laatste data- 
transport nummer n. 


16). In dat geval is de dataverhuizing namelijk klaar. Het testen op de 
gelijkheid van MOVAD en CURAD verloopt in twee stappen. Zijn de 
inhoud van MOVADL en die van CURADL aan elkaar gelijk, dan is het 
zinvol om ook nog te gaan kijken of hetzelfde geldt voor CURADH en 
CENDH. Is ook dat het geval dan volgt nog één instruktie: RTS: alles wat 
verhuisd moest worden is verhuisd. | 
Zolang MOVAD nog niet gelijkgericht is met CURAD vervolgen we DOWN 
met het programmadeel DNA, dat dient als voorbereiding voor de volgende 
dataverhuizing. Eerst wordt van de inhoud van MOVADL 1 afgetrokken 
(SBC IMM 91), vervolgens gebeurt hetzelfde, afhankelijk van de toestand 
van de carry na de eerste aftrekking, voor MOVADH. Al met al is de 
inhoud van MOVAD 1 /ager geworden; MOVAD staat gericht op een 
nieuwe geheugenplaats, één plaatsje hoger in het werkgeheugen. 

In figuur 16 zijn de eerste vier en de laatste drie dataverhuizingen in het 
kader van DOWN getekend. De eerste verhuizing, die van de inhoud van de 
plaats, aangewezen door CEND, is eigenlijk overbodig. Immers, CEND 
staat gericht op de hoogste onbezette geheugenplaats van het werkge- 
heugen. Die “extra” dataverhuizing kan echter geen enkel kwaad. 


De subroutine UP 


Plaats opvullen 


De subroutine UP is nodig voor het goed uitvoeren van de DELETE- 
toetsfunktie. Het gedetailleerde stroomdiagram staat in figuur 17. Aan UP 
de taak om de inhoud van alle bezette geheugenplaatsen, met instrukties, 
volgend op de te verwijderen instruktie, een of meerdere plaatsen omhoog 
te schuiven. Het preciese aantal plaatsen hangt af van de lengte van de te 
verwijderen instruktie. Eigenlijk wordt de instruktie niet verwijderd, maar 
overschreven. 

De bij UP horende dataverhuizing is in figuur 18 getekend voor de eerste 
vier en de laatste vier verhuizingen; bij de bespreking van figuur 17 kunnen 
we van figuur 18 veel gemak hebben. 

Net als bij DOWN is er bij UP sprake van een verhuisadreswijzer MOVAD, 
die na elke verhuizing een plaatsje opschuift. De beginpositie van MOVAD 
is geregeld na afloop van de eerste vier instrukties van figuur 17. Er geldt 
dan dat de inhoud van CURAD en die van MOVAD aan elkaar gelijk zijn; 
de beide wijzers vallen samen (N.B. CURAD staat gericht op de opcode 
van de te verwijderen instruktie). Nu is het de hoogste tijd voor het pro- 
grammadeel van UP met het label UPLOOP. 

Dat begint met het in het Y-register zetten van de inhoud van BYTES, 
dus met de lengte van de te overschrijven instruktie (DELETE). Vervolgens 
een accu-laadoperatie. Met de instruktie LDA-(MOVADL), Y — waarbij 
Y gelijk is aan de inhoud van BYTES — is bereikt dat de inhoud van de 
geheugenplaats, aangewezen door de adreswijzer MOVAD + BYTES, naar 
de accu gaat. Dan krijgt Y de waarde nul en volgt weer een instruktie met 
indirekte Y-geïndexeerde adressering. De instruktie STA-(MOVADL), 
Y — met Y nu gelijk aan nul — zorgt dat de inhoud van de accu gaat naar 
een plaats in het werkgeheugen, die wordt aangewezen door de verhuis- 
adreswijzer MOVAD. Er is nu de inhoud van één geheugenplaats van het 
werkgeheugen verhuisd en of er nog meer verhuizingen volgen hangt af 
van wat het nu volgende programmadeel van UP heeft te zeggen over de 
positie van MOVAD ten opzichte van CEND. 

Dat begint met het verhogen van de inhoud van MOVAD met één: de 
verhuisadreswijzer verschuift een plaatsje naar beneden. Eerst wordt 
MOVADL met 1 opgehoogd. Was deze FF, dan wordt deze @@ en moet 
ook MOVADH met 1 worden opgehoogd. We zijn inmiddels bij label UPA 
van UP aangekomen. Er wordt gekeken of MOVADL soms gelijk is aan 
CENDL. Is dat niet het geval dan springen we meteen naar UPLOOP 
voor een volgende dataverhuizing. Is dat wel het geval, dan moet ver- 
volgens worden gekeken of MOVADH gelijk is aan CENDH. Zijn ook 
MOVADH en CENDH aan elkaar gelijk, dan zijn we klaar met de data- 
verhuizing. Zoniet, dan volgt alsnog een sprong naar UPLOOP voor de 
volgende verhuizing. 

Tot slot kijken we nog even naar figuur 18, de illustratie bij en van het 
UPpen. De laatste en laagste stand van MOVAD na afloop van UP is één 
positie hoger dan die van de variabele eindadreswijzer CEND. We zien dat 
de inhoud van één, twee of drie onbezette geheugenplaatsen (afhankelijk 
van de lengte van de te verwijderen instruktie) mee omhooggeschoven 
wordt. Dat kan echter geen kwaad. 
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LDA — CURADL 
STA — MOVADL 
STA — MOVADH 


UPLOOP 


LDA — (MOVADL),YfA “inh pl MOVAD + BYTES 
LDY #40 


STA — (MOVADL),Y 
INC — MOVADL 


n Ge 
«ja 
INC — MOVADH 


LDA — MOVADL 
CMP — CENDL 


MOVADH = | EUYRAD 





} MOVADL = 
CURADL 
MOVAD = 


CURADH 














A > pl 





Wi 


MOVADL < MOVADL + 1 


MOVADL 2 99 






MOVADH < MOVADH + 1 


A <MOVADL 


MOVADL Z GENDL 





A <MOVADH 


LDA — MOVADH 


MOVADH 2 CENDH 


80915-8-17 


Figuur 17. De subroutine UP verhuist de inhoud van een aantal geheugenplaatsen 
naar een plaats, hoger in het werkgeheugen (lager adres). De exakte plaatsverschuiving 
hangt af van de lengte van de te verwijderen instruktie. De plaats, aangewezen door 
CURAD is de hoogste plaats in het werkgeheugen, waarnaar data wordt verhuisd. 
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_ 80915-8-18 


Figuur 18, Illustratie van de dataverhuizing zoals die plaatsvindt in de subroutine 
UP van figuur 17. Het eerste datatransport heeft nummer 1, het laatste datatransport 
nummer n. 


De subroutine OPLEN/LENACC 


Instruktielengte bepalen 


De subroutine OPLEN/LENACC is nodig voor het bepalen van de lengte 
van een instruktie op basis van kennis van de opcode van de instruktie. 
Die opcode staat al in de accu (ingang van OPLEN een stukje verderop, 
bij het label LENACC) of we zorgen ervoor dat deze eerst in de accu wordt 
gezet. In dat geval begint men helemaal aan het begin, bij het label OPLEN. 
De subroutine OPLEN, en daarmee LENACC staat, instruktie voor instruk- 
tie in rechthoek of ruit, in figuur 19. Misschien is het zo dat u bij het 
horen van “instruktielengte bepalen’ een licht is opgegaan in de zin van: 
“daar heb ik al iets van gelezen”. Klopt. In hoofdstuk 4 van Junior- 
computer 1 is de subroutine LENACC, het leeuwedeel van OPLEN, al 
uitgebreid besproken (figuur 6, bladzijde 142). Sommige beestjes krijgen 
nu een ander naampje en X is verwisseld met Y, maar in wezen gaat het 
hier, in hoofdstuk 8 om hetzelfde verhaal, met één belangrijk verschil: de 
bijbehorende opzoektabel (look-up table) heeft op sommige plaatsen een 
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LDY #09 


LDA — (CURADL),Y |_A «inh pl 


LDY #1 


CMP #09 


ne 


CMP # 49 


K 


nee 


CMP #69 


x 


nee 
LDY #93 
CMP # 29 


K 


nee 


AND #1F 


CMP #19 


K 


nee 
AND # GF 
AX 


LDY — LEN,X 


JK 


STY — BYTES 


{ = opcode} 


1-b-instrukties 
(uitzonderingen) 


BRK? 
RTI? 


RTS? 


3-b-instruktie 
(uitzondering) 


JSR? 


ABS,Y — instruktie? 
(kalam 9} 


maskeer rechter nibble 
X “rechter nibble 


Y Sinhoud (X + 1}-de plaats van LEN 


Y >BYTES / 


80915-8-19 


Figuur 19. De subroutine OPLEN bepaalt de lengte van de instruktie waarvan de 
opcode in de accu wordt gezet, of daar al in staat (LENACC). 
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Linker hexadecimaal teken 





Rechter hexadecimaal teken 


























































































































@ ORA (IND,X) (2) ORAZ (2 [ASLZ {2} 
1 ORA (IND), Y (2) ORA ZX {2}; ASL ZX (2) 
2 AND {IND,X) (2) ANDZ (2}|/ ROLZ (2) 
3 AND (IND),Y (2) AND ZX (2) | ROL ZX (2) 
4 EOR (IND,X) (2} EORZ (2}|LSR2 (2) 
5 EOR (IND},Y (2) EOR ZX (2)/ LSR Z,X (2} 
6 ADC (IND,X) (2) ADCZ (2}fRORZ {2} 
7 ADC (IND),Y {2} ADC ZX {2} | ROR ZX (2) | EOF 77 (1) 
8 STA {IND,X) (2} STYZ (2}|STAZ (ISTXZ {2} 
g STA (IND) Y (2} STY ZX (2)! STAZX (2) [| STX Z,Y (2} 
A LDA (IND,X) (2) LDYZ (2}f LDAZ (2){LDXZ (2) 
B LDA {IND),Y (2) LDY ZX (2)| LDA ZX (2} | LDX Z,Y (2) 
C CMP (IND,X) (2) CPYZ (2) CMPZ (2))DECZ (2) 
D CMP {IND),Y (2) CMP ZX (2) f DEC ZX (2) 
E SBC (IND,X) (2) CPX2 (2}| SBCZ (2) | INCZ (2) 
F SBC (IND), Y SBC ZX (2} | INC ZX (2} 


80915-20 


Figuur 20. Opcodetabel van alte opcodes van de 6502-microprocessor. Toegevoegd 
zijn de pseudo-opcode FF, toegekend aan een label (pseudo-instruktie), en de pseudo- 
opcode 77 van het EOF -teken. 


andere inhoud omdat we nu alleen rekening hoeven te houden met echte 
opcodes en de pseudo-opcode FF van een label. Instrukties met lengte nul 
komen in dit verhaal niet meer voor. 

Voor het gemak is de opcodetabel hier in de vorm van figuur 20 nog een 
keer weergegeven. Het enige — niet onbelangrijke — verschil met figuur 5 
op de pagina’s 140 en 141 van Junior-computer 1 is dat de plaats die 
overeenkomt met rij F en kolom F is gevuld met ‘label (3): de pseudo- 
opcode FF, horend bij de pseudo-instruktie met lengte drie, nodig voor de 
weergave van een label op een bepaalde plaats in het werkgeheugen. 

Het is niet de bedoeling om het verhaal van hoofdstuk 4 hier uitgebreid 
te gaan herkauwen. We volstaan met het puntsgewijze doorlopen van 
OPLEN: 


1. De accu wordt geladen met de inhoud van de geheugenplaats, die wordt 
aangewezen door de displaywijzer CURAD. Deze wijzer staat zoals 
bekend altijd gericht op een plaats met een (pseudo-)opcode. Die dan 
ook in de accu verschijnt. 


2. (label LENACC) We maken Y gelijk aan 1. De komende paar in- 
strukties staan in het teken van het uitfilteren van die instrukties, die 
kwa lengte in hun kolom een uitzondering vormen. Gaat het om één 
van deze instrukties, dan komt de lengte in de vorm van de waarde van 
Y in BYTES te staan (STY-BYTES, aan het eind van OPLEN). Voor 
BRK, RTI en RTS geldt Y = @1, voor JSR geldt Y = d3. 


3. We zijn toe aan de instruktie AND IMM 1F. Het Y-register bevat de 
waarde @3. In kombinatie met de aansluitende CMP IMM 19 en BEO 
worden de 3-byte-instrukties van kolom 9 uitgefilterd (BYTES=Y). 


4. Het linker nibble van de accu-inhoud wordt nul gemaakt, zodat de 


„ 
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Linker hexadecimaal teken 





MONWPORNANRSUN=-e 













Rechter hexadecimaal teken 









ORA # (2) 
ORA ABS,Y (3) 
AND # (2} 
AND ABS,Y (3) 
EOR # (2) 
EOR ABS,Y (3) 
ADC # (2) 
ADC ABS,Y (3) 





(3) 
(2) 
(3) 
(2) 
(3) 
(2) 
{3} 


STA ABS,Y 
LDA # 
LOA ABS,Y 
CMP # 
CMP ABS,Y 
SBC # 
SBC ABS,Y 
































BIT ABS 
JMP ABS 
JMP IND 
STY ABS 
LDY ABS 
LDY ABS,X(3) 


CPY ABS (3) 


CPX ABS (3) 


























ORAABS {3} 
ORA ABS,X (3) 
AND ABS 
AND ABS,X 
EOR ABS 
EOR ABS,X 
ADC ABS 
ADC ABS,X 
STA ABS 
STA ABS, X 
LDA ABS 
LDA ABS,X 
CMP ABS 
CMP ABS,X 
SBC ABS 
SBC ABS, X 


ASL ABS 
ASL ABS,X 
ROL ABS 
ROL ABS,‚X 
LSR ABS 
LSR ABS,X 
ROR ABS 
ROR ABS,X 
STX ABS 










(3) 










{3} 





















(3) 






(3) 





















(3) LDX ABS 
LDX ABS,Y 
DEC ABS 
DEC ABS,X 
INC ABS 
INC ABS, X 




















nmr NEWN=e 


accu-inhoud nooit groter kan zijn dan OF. Dit in verband met het 
overschrijden, in punt b, van de opzoektabel LEN. 


. De inhoud van de accu gaat naar het X-register (TAX). Het Y-register 


wordt geladen met de inhoud van de geheugenplaats, die X (= accu- 
inhoud!) plaatsen verder ligt dan de eerste geheugenplaats van de 
opzoektabel LEN. 


. De inhoud van Y is gelijk aan de instruktielengte en wordt opgeslagen 


Tot slot laten we de opzoektabel LEN nog eens zien: 


kolom ® 
kolom 1 
kolom 2 
kolom 3 
kolom 4 
kolom 5 
kolom 6 
kolom 7 
kolom 8 
kolom 9 
kolom A 
kolom B 
kolom C 
kolom D 
kolom E 


voornamelijk 2-byte-instrukties 
uitsluitend 2-byte-instrukties 
bevat alleen LDX IMM 
is leeg; “instruktielengte” #8 e/ 
2-byte-instrukties | 
uitstuitend 2-byte-instrukties 
uitsluitend 2-byte-instrukties 

is leeg; “instruktielengte”’ @1 
uitsluitend 1-byte-instrukties 
voornamelijk 2-byte-instrukties 
voornamelijk 1-byte-instrukties 
is leeg; “instruktielengte”’ @1 
voaornarmmetijk 3-byte-instrukties 
uitsluitend 3-byte-instrukties 
voornametijk 3-byte-instrukties 


6 
in de RAM geheugenplaats BYTES. 

1. Klaar! RTS. 

1F1F: inhoud 92; Y = 66; 
1F29: inhoud 62; Y = @1; 
1F21: inhoud 92; Y = 92; 
1F22: inhoud @1; Y = 03, 
1F23: inhoud 92; Y = 04, 
1F24: inhoud 92; Y = 65; 
1F25: inhoud 92; Y = 66; 
1F26: inhoud 1; Y = 97; 
1F27: inhoud d1; Y = 98: 
1F28: inhoud 82; Y = 99: 
1F29: inhoud Ô1; Y = GA; 
1F2A: inhoud 91; Y = B; 
1F2B: inhoud 93; Y = BC; 
1F2C: inhoud 03; Y = BD; 
1F2D: inhoud 93; Y = GE: 
1F2E: inhoud 03; Y = GF; 


kolom F 


gereserveerd voor pseudo-opcode FF 
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U ziet dat ook aan lege kolommen of aan niet als opcode voorkomende 
hexadecimale cijferkombinaties een bepaalde instruktielengte wordt 
toegekend. 


De instrukties van de editor-hoofdroutine en die van de bijbeho- 
rende subroutines zijn in detail (per instruktie: opcode, operand, 


EPROM-adres en kommentaar) weergegeven in Aanhangsel 1, de 
programmalisting van de EPROM. 





Zo, nu bent u helemaal op de hoogte van de editor. Nu de assembler nog. 
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Het assemblerprogramma 


Berekenen waar het naar toe gaat bij sprongen 


De assembler is het programma dat de junior-computer in huis 
heeft (in de EPROM) om de echte operand van spronginstruk- 
ties vast te stellen. Tijdens het voorafgaande editen van het 
gebruikersprogramma is de operand van de meeste sprong- 
instrukties namelijk vervangen door een symbolische operand in 
de vorm van een labelnummer, een numeriek opschrift aan het 
begin van een bepaald programmadeel. De labels zijn gedurende 
het editen in het gebruikersprogramma opgenomen in de vorm 
van schijn-instrukties; na het assembleren van het programma 
zijn ze eruit verdwenen. 

Hoe gaat dat in zijn werk? Daarover dit hoofdstuk. 


In het alledaagse spraakgebruik betekent "'assembleren’’: in elkaar zetten 
uit voorhanden zijnde kant en klare onderdelen. Het begrip assembleren, 
zoals gehanteerd in verband met computerprogramma’s vertoont grote 
overeenkomst met het in elkaar zetten van auto's, schepen of vliegtuigen: 
het tijdens het editen voorbereide gebruikersprogramma is voor het groot- 
ste deel al klaar. Het is nog een kwestie van het noteren van de labels 
(positie en nummer), de labels verwijderen en de daardoor ontstane gaten 
te dichten door programmadelen, volgend op de labels in het werkgeheugen 
te verplaatsen. 

De tweede fase van het assembleren houdt in dat de operand van elke 
spronginstruktie waarin een symbolisch adres (labelnummer) is gebruikt 
wordt vervangen door de met het labelnummer overeenstemmende echte 
adresinformatie of, bij voorwaardelijke spronginstrukties, door de bij- 
behorende offset. 
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Globaal overzicht 


Het assembleren verloopt zoals gezegd in twee fasen. In hoofdstuk 5 is in 
dat verband de kreet “two pass assembler’ gebezigd. Het is daarom dat het 
globale stroomdiagram van de assembter van de junior-computer eveneens 
in twee onderling duidelijk gescheiden delen uiteenvalt: de figuren 1 en 2. 
We beginnen met figuur 1. Direkt na het label ASSEMB, met startadres 
1F51 begint een programmadeel dat zich bezig houdt met een aantal voor- 
bereidende aktiviteiten zoals het in een bepaalde startpositie brengen van 
adreswijzers. 

Dan begint met label PASSA het eigenlijke assemblerprogramma, en wel de 
eerste fase (Pass A). Er wordt vervolgens een instruktie onder de loep 
genomen. Tijdens de eerste doorgang van PASSA is dat de eerste echte of 
pseudo-instruktie (label) van het gebruikersprogramma, tijdens de tweede 
doorloop van PASSA is dat de tweede instruktie, enzovoorts. 

Waarop wordt de instruktie onderzocht? Op zijn opcode. Is die FF, dan is 
het geen echte instruktie maar een label. Het tabelnummer en het adres 
worden “genoteerd’”. Dat kan in computer-verband maar één ding beteke- 
nen: het labelnummer, het linker en het rechter byte worden opgeschreven 
op plaatsen van het werkgeheugen: de zogenaamde '‘symbol stack” ofte- 
wel labelgeheugenruimte, waarvan in hoofdstuk 5 sprake was. 

Dat is nog niet alles. Nu alle labelinformatie is vastgelegd kan, sterker zelfs: 
moet het label worden verwijderd. Dat gebeurt door het overschrijven van 
dat tabel: de inhoud van alle bezette geheugenplaatsen in het werkgeheu- 
gen die volgen op het gevonden label (m.a.w. alle geheugenplaatsen met 
een adres, 3 of meer hoger dan dat van de FF van het label) schuift drie 
plaatsen omhoog. 

Zodra een instruktie is bekeken en al dan niet een label is gevonden wordt 
gekeken of er (nog) een volgende instruktie valt te onderzoeken. Is dat het 
geval dan wordt de volgende instruktie klaargezet en gaat het terug naar 
PASSA. Zoniet, dan is de assembler aan de tweede fase (PASS B) van het 
assembleren toe, omdat kennelijk alle instrukties van het gebruikerspro- 
gramma zijn onderzocht. 

Die tweede fase van het assembleren is globaal weergegeven in figuur 2. 
Weer wordt (direkt na PASSB) elke instruktie, beginnend bij de eerste 
onderzocht. Alle labels zijn nu verwijderd. De opcode van de onderzochte 
instruktie wordt bekeken. Is het de opcode van JMP- of JSR-sprong- 
instruktie, dan wordt op basis van het labelnummer — dat tot aan dit 
moment nog aanwezig is bij elke te assembleren (voorwaardelijke) sprong- 
instruktie — het adres, behorend bij het labelnummer operationeel als 
werkelijke operand van de JMP of JSR. 

In het geval van een voorwaardelijke spronginstruktie gebeurt iets derge- 
lijks: het adres, behorend bij het toegevoegde labelnummer is bekend. Op 
grond daarvan kan de offset worden berekend. Deze gaat zoals het hoort 
dienst doen als operandbyte van de voorwaardelijke spronginstruktie. 
Nadat een instruktie is bekeken en, als het een te assembleren sprong- 
instruktie is, rijst de vraag of er nog instrukties zijn te onderzoeken. Zoja: 
“de volgende patiënt’, dus terug naar label PASSB voor een nieuw onder- 
zoek, namelijk van de volgende instruktie. Zonee, dan zijn we klaar met 
assembleren. Er volgt dan een sprong naar de monitor (het centrale punt 
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Figuur 1. Het globale stroomdiagram van dat deel van de assembler dat doorlopen 
wordt tijdens de eerste fase van het assembleren: labels noteren in de labelgeheugen- 
ruimte en ze vervolgens uit het gebruikersprogramma verwijderen. 
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Figuur 2. Het globale stroomdiagram van dat deel van de assembler dat doorlopen 
wordt tijdens de tweede fase van het assembleren. Bij alte spronginstrukties waarvan 
het (eerste) operandbyte als tabelnummer voorkomt in de labelgeheugenruimte, de 
operandbyte(s) in overeenstemming brengen met het adres van het label. 
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met label START, zie hoofdstuk 7}. Het intoetsen van AD X X X X GO, 
met XXXX het startadres volstaat om het gebruikersprogramma uit te 
voeren. Waarna zal blijken of de terugkeer naar de assembler via de editor 
nodig is of niet, dus of het gebruikersprogramma alles of niet alles doet 
wat de gebruiker met het programma voor ogen had. 


Over het juiste adres en zo 


Tijdens het editen worden de labels tijdelijk als pseudo-instrukties op de 

juiste plaats toegevoegd aan de instrukties van het gebruikersprogramma. 

Dat vergt geheugenruimte; op het mogelijke gevaar daarvan is al in hoofd- 

stuk 5 gewezen. Het betekent echter ook dat de adressen van alle instruk- 

ties, volgend op een label tijdelijk hoger zijn. Hoeveel hoger? Dat hangt af 

van het aantal labels dat aan de instruktie vooraf gaat. Hoe zit dat precies? 

1. instrukties vóór het eerste label hebben het juiste adres. Dit soort 
instrukties komt overigens hoogst zelden voor omdat het gebruikelijk is 
om een programma met een label te beginnen. Als naar dat label niet 
wordt gesprongen heeft het overigens weinig zijn om er een hexadeci- 
maal labelnummer aan toe te voegen. 

2. instrukties tussen het eerste en het tweede label staan tijdelijk op plaat- 
sen met adressen die 3 hoger zijn. 

3. instrukties tussen het tweede en het derde label staan tijdelijk op plaat- 
sen met adressen die 6 hoger zijn. 

4. instrukties tussen het derde en het vierde label staan tijdelijk op plaat- 
sen met adressen die 9 hoger zijn. 

5. In het algemeen: instrukties tussen label n en label (n+1) staan tijdelijk 
op plaatsen met adressen die 3n hoger zijn. 

We herinneren u er hier nog maar even aan dat het bij een label horende 

adres het adres is van de geheugenplaats waarop de opcode staat van de 

eerste instruktie, volgend op het label. 

Gegeven het feit dat de meeste of alle opcodes zoals zojuist beschreven op 

een hoger adres staan rijst de vraag of dat allemaal wel goed op z'n pootjes 

terecht komt bij het toevoegen van het feitelijk adres aan een label met een 

bepaald nummer, tijdens de eerste fase van het assembleren. Gáát dat zo- 

maar ? 

Ja. 

Dat gaat, als we de labels stuk voor stuk van boven naar beneden in het 

werkgeheugen verwijderen. De ruimte die vrijkomt als na het verwijderen 

van een tabel de geheugenruimte wordt ingekrompen kan dan meteen mooi 

worden gebruikt voor het bewaren van de labelinformatie — die nodig is 

tijdens de tweede fase van het assembteren. 

En hoe gaat dat dan wel? Wel, richt de blik op de plaats waarop de pseudo- 

opcode FF van het eerste label staat. Een plaatsje lager staat het label- 

nummer en nog een plaats lager het begrenzerbyte B. Denkt u nu vervol- 

gens het label weg en verbeeldt u zich dat de daarop volgende instrukties, 

trouwens: âlle daarop volgende instrukties drie plaatsen omhooggeschoven 

zijn. (We vrâgen u nu wel om te zeggen: stel dat... , maar het gebéurt in 

werkelijkheid!) 

Als u goed gekeken hebt zult u hebben gezien dat het adres van de geheu- 
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Figuur 3. Ondanks het feit dat de tijdelijk in het gebruikersprogramma opgenomen 
labels zorgen voor een verschuiving van de labeladressen is de informatie over het 
echte íabeladres (= adres met de opcode van de op het tabel volgende instruktie) 
beschikbaar indien de labels stuk voor stuk van boven naar beneden uit het 
gebruikersprogramma worden verwijderd. 
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genplaats met de FF van het label gelijk is aan het adres, dat bij dat label 
hoort. Op de plaats van FF komt namelijk na verwijdering van het label de 
opcode van de volgende instruktie te staan. 

Zoals we net hebben gezien klopt het adresregeltje voor het eerste label 
van boven af in het werkgeheugen. Klopt het nu ook voor de volgende 
labels? Ja. Omdat na verwijdering van het eerste label het tweede label het 
eerste label van boven af is! En na verwijdering van het tweede label is het 
derde label het eerste tabel van bovenaf, enzovoorts. 

De zojuist omschreven schuifpartij door het verwijderen van labels is 
geïllustreerd in figuur 3. Daarin is het eerste stukje van het werkgeheugen 
getekend gedurende vier tijdstippen tijdens de eerste fase van het assem- 
bleren. Het werkgeheugen is gevuld met labels en instrukties van het voor- 
beeldprogramma van hoofdstuk 5. We hebben ons beperkt tot de eerste 
drie labels; de weergave van alle zeven labels in de figuren 1...4 van 
hoofdstuk 5 zou figuur 3 zowel In de lengte als in de breedte sterk doen 
vergroten. 

Figuur 3a geeft de situatie weer zoals die bestaat vlak voor het assem- 
bleren. Verder geldt: 

1. situatie na verwijdering van tabel nummer 19: figuur 3b 

2. situatie na verwijdering van label nummer 11: figuur 3c 

3. situatie na verwijdering van label nummer 12: figuur 3d 

U kunt zien hoe mooi dat FF-regeltje van daarnet klopt. 


De assembler: eerste fase 


Labels onthouden 


Het instruktie voor instruktie uitgewerkte gedetailleerde stroomdiagram 
van figuur 1 staat in figuur 4. Het gaat daarbij om software ín het kader 
van de algemene voorbereiding van het assembleren en de software, noeg 
voor de uitvoering van de eerste fase van het assembleren. 
Het begint atlemaal bij het label ASSEMB met het adres 1F51, het start- 
adres van de assembler. Het nu volgende voorprogramma, tot aan label 
PASSA, zet twee adreswijzers in de startpositie en laadt een RAM-geheu- 
genplaats, die van invloed is op de stand van een derde adreswijzer. 
Voordat we met de bespreking beginnen eerst een algemene opmerking. 
Het assembleren hangt nauw samen met het editen; hetzelfde geldt voor de 
assembler ten opzichte van de editor. Er wordt namelijk in de assembler 
een aantal malen gebruik gemaakt van editor-subroutines. Het is zeer zin- 
vol om hoofdstuk 8 te bestuderen voordat de nu volgende details van de 
assembler bij (en hopelijk in) de kop worden genomen. 
De voorbereidingen van het assembleren, punt voor punt behandeld: 
1. We maken kennis met twee nieuwe RAM-geheugenplaatsen. Het zijn: 
TABLEL, met adres GOEC, en 
TABLEH, met adres OGED. 
De inhoud van deze geheugenplaatsen bepaalt de stand van de tabel- 
eindadreswijzer TABLE. Deze adreswijzer vormt de bovenste begren- 
zing van een deel van het werkgeheugen dat gebruikt gaat worden voor 
de opslag van label-informatie. De eerste zeven instrukties, volgend op 
het label ASSEMB zorgen ervoor dat de adreswijzer TABLE FF plaatsen 
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Figuur 4. Het gedetailleerde stroomdiagram van figuur 1. Fase 1 van het assembleren. 
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hoger gericht staat dan de eindadreswijzer ENDAD. Die FF (= 256) 
heeft alles te maken met het maximale aantal labels dat kan worden 
behandeld door de assembler (zie alvast figuur 5). 

2. Er komt alweer een nieuwe RAM-geheugenplaats op de proppen: 
LABELS, met adres QOEE. De inhoud van LABELS, opgeteld bij die 
van TABLE levert informatie over de stand van een adreswijzer die we 
tabelwijzer TABLE +LABELS hebben genoemd. Deze adreswijzer 
staat altijd gericht op de hoogste onbezette geheugenplaats van de 
labelgeheugenruimte (= “symbol stack’). Zodra later een label is gevon- 
den (zo zal blijken) komt op deze plaats het labelnummer te staan, een 
plaatsje hoger het linker adresbyte van het label en weer een plaatsje 
hoger het rechter adresbyte. Aan het begin wordt de inhoud van 
BYTES FF gemaakt. Gelet op het in punt 1 behandelde betekent dit 
dat aan het begin van het assembleren de tabelwijzer op dezelfde 
geheugenplaats staat gericht als de eindadreswijzer ENDAD (zie 
figuur 5). 

3. De laatste voorbereiding is het aanroepen van de subroutine BEGIN 
(hoofdstuk 8, figuur 7). Dat heeft tot gevolg dat de displaywijzer 
CURAD, die staat gericht op de geheugenplaats met de opcode van de 
instruktie die in behandeling is, op dezelfde geheugenplaats staat ge- 
richt als de beginadreswijzer BEGAD, namelijk op de geheugenplaats 
met het startadres van het gebruikersprogramma. 


Het labelonderzoek 


We zijn aan het label PASSA van figuur 4 toe. De eigenlijke eerste fase van 
het assembleren begint. Dat begint met de aanroep van de subroutine 
OPLEN (hoofdstuk 8, figuur 19). Deze subroutine bepaalt de lengte van 
de behandelde instruktie, zet deze in BYTES. Er is dan bekend hoeveel 
plaatsen de displaywijzer CURAD straks, bij het onderzoek van de volgen- 
de instruktie moet worden verschoven. 

Vervolgens de instruktie LDA-(CURADL),Y, met Y = G®: de inhoud van 
de geheugenplaats, aangewezen door CURAD, dus de opcode van de 
onderzochte instruktie gaat de accu in. De aansluitende instrukties 
CMP IMM FF en BNE testen de aanwezigheid van een label. 

Is het geen label, dan springen we naar het programmadeel van figuur 4 
met het label NXTINS: “de volgende patiënt’ wordt van de wachtkamer 
naar de onderzoekkamer gebracht. Dat gebeurt door het aanroepen van de 
subroutine NEXT (hoofdstuk 8, figuur 10). De displaywijzer CURAD gaat 
een aantal plaatsen omlaag. Hoeveel hangt af van de inhoud van BYTES, 
dus van de lengte van de onlangs behandelde instruktie. In NEXT gaat 
men tevens na of de nieuwe positie van CURAD soms gelijk is geworden 
aan die van de eindadreswijzer CEND, ten teken dat alle instrukties zijn 
onderzocht. Is dat niet het geval dan gaan we terug naar PASSA voor het 
onderzoek van de volgende instruktie. Is dat wel het geval dan springen we 
naar de subroutine BEGIN, waarin als voorbereiding op fase twee van het 
assembleren de eerste instruktie van het gebruikersprogramma klaar voor 
onderzoek wordt gezet. 

Maar wat gebeurt er eigenlijk indien er wèl de pseudo-opcode FF van een 
label is vastgesteld na CMP IMM FF + BNE? Dàt bespreken we nu. 
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CURADL : G9E6 
CURADH : OGE7 
LABELS : GJEE 
TABLEL : GGEC 
TABLEH : GOED 


Figuur 5. Het plaatsen van labelinformatie in de labelgeheugenruimte. Drie adres- 
wijzers spelen daarbij een rol: de tabeleindadreswijzer TABLE, de tabelwijzer 
TABLE+LABELS en de eindadreswijzer ENDAD. De tabelwijzer staat altijd op een 
plaats van de labelgeheugenruimte die is bestemd voor een labelnummer (fase 1 van 
het assembleren) of een labelnumrmmer bevat (fase 2 van het assembleren). 


De labelbehandeling, punt voor punt besproken: 
(Zie fiquur 4 en figuur 5.) 


1. 


Met de instruktie INY wordt Y gelijk aan @1; deze was namelijk Q9. De 
accu wordt vervolgens geladen met de inhoud van de geheugenplaats, 
aangewezen door CURAD + 1. Op die plaats staat het labelnummer. 


‚ De inhoud van LABELS gaat naar het Y-indexregister. De aansluitende 


STA-(TABLEL),Y zet de inhoud van de accu (=tabelnummer) in de 
geheugenplaats, aangewezen door de tabelwijzer TABLE + LABELS, 
Aangezien LABELS aan het begin van het assembleren de inhoud FF 
heeft en aangezien TABLE gelijk is aan ENDAD min FF, komt het 
eerste labelnummer terecht in de geheugenplaats, aangewezen door 
ENDAD. Die geheugenplaats en de vijf, direkt daarboven hebben we in 
hoofdstuk 5 gereserveerd voor de assembler; er wordt dus als het goed is 
geen staart van het gebruikersprogramma overschreven. 


. DEY 


LDA-CURADH 

STA-(TABLEL),Y 

De inhoud van CURADH, het linker adresbyte van CURAD, gaat de 
accu in. Zoals bekend staat CURAD gericht op de opcode; in dit geval 
op FF. In het hoofdstuk “Over het juiste adres en zo” hebben we 
gezien dat het adres waarop FF staat tevens het labeladres is. Dus is 
CURADH het linker byte (ADH) van het adres van het label. Dit 
linker byte gaat naar de geheugenplaats, aangewezen door TABLE + 
LABELS-—1, dat is dus één plaats hoger dan de plaats met het labelnum- 
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mer in de labelgeheugenruimte (zie figuur 5). 

4. DEY 
LDA-CURADL 
STA-(TABLEL),Y 
De inhoud van het rechter adresbyte ADL van het label gaat via de accu 
naar de geheugenplaats, aangewezen door de adreswijzer TABLE+ 
LABELS-—2, twee plaatsen hoger dan de plaats met het labelnummer 
in de labelgeheugenruimte. 

5. DEY 
STY-LABELS 
De inhoud van LABELS is na drie DEY's met drie verlaagd. Anders 
gezegd: de tabelwijzer TABLE+LABELS staat drie plaatsen hoger en 
klaar voor ontvangst van informatie over het volgende label. 

6. JSR-UP 
JSR-RECEND 
Het zojuist genoteerde label wordt overschreven door alle op dat label 
volgende instrukties van het gebruikersprogramma drie plaatsen om- 
hoog te verhuizen. Dat doet de subroutine UP (hoofdstuk 8, figuur 17). 
De subroutine RECEND past de variabele eindadreswijzer CEND aan 
aan de nieuwe situatie (zie hoofdstuk 8, figuur 14). 

7. JMP-PASSA 
De nieuwe instruktie kan worden onderzocht. Er is geen sprong naar 
het label NXTINS van figuur 4 nodig om de nieuwe instruktie voor te 
zetten, omdat die al voorbereid is, in punt 6. De akties van punt 6 zijn 
namelijk precies dezelfde als die van de DELETE-toetsroutine, zie 
hoofdstuk 8. 


In hoofdstuk 5 is gesteld dat we er ten aanzien van de lengte van het 
gebruikersprogramma op moeten letten dat er zes geheugenplaatsen be- 
schikbaar blijven voor de assembler. Nu ís het zo dat er in ieder geval drie 
plaatsen beschikbaar moeten zijn voor het noteren van het eerste label. 
Nadat het eerste label uit het gebruikersprogramma is verwijderd komt er 
automatisch ruimte vrij om het tweede label te noteren en als dat vervol- 
gens is overschreven is er plaats om het derde label te noteren, enzovoorts. 
De vraag rijst: waarom zes plaatsen reserveren als zo op het eerste gezicht 
drie plaatsen voldoende is? Voor het antwoord op die vraag moeten we 
even terug naar hoofdstuk 8, en wel naar figuur 18, de illustratie bij de bij 
DOWN horende dataverhuizing. Uit deze figuur met de bijbehorende 
bespreking zien we dat ook de drie hoogste onbezette geheugenplaatsen 
omhoog verhuizen. Dit betekent dat, als er maar drie plaatsen over waren, 
het zojuist genoteerde label zou worden overschreven bij het wegzetten 
van het volgende label! Dat komt omdat de tabelwijzer TABLE + LABELS 
ook telkens omhoog schuift. En die wijzer bepaalt waar het volgende label 
moet worden genoteerd. 

In figuur 6 is de labelgeheugenruimte te zien zoals die er uitziet na de 
eerste fase van het voorbeeldprogramma volgens de figuren 1 ...4 van 
hoofdstuk 5. Alle zeven labels zijn genoteerd in de volgorde waarin ze 
van boven naar beneden in het ge-edite programma voorkomen. 
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Figuur 6. De labelgeheugenruimte na het assembleren van het ge-edite programma van 
hoofdstuk 5. De eindadreswijzer ENDAD staat gericht op het adres G2FF. 


De assembler: tweede fase 


labels omzetten in adressen en offsets 


We zijn toe aan de bespreking van figuur 7, de uitgewerkte versie van het 
globale stroomdiagram van figuur 2. 

Voorafgaand aan het label PASSB van figuur 7 is de displaywijzer CURAD 
in de beginpositie (CURAD gelijk aan BEGAD) gezet; dat was de laatste 
aktie van de eerste fase (BEGIN in figuur 4). In de tweede fase van het 
assembleren worden weer alle instrukties stuk voor stuk tegen het licht 
gehouden. Alte spronginstrukties krijgen een aparte beurt, dus ook de 
spronginstrukties die niet hoeven te worden geassembleerd omdat de 
operand ervan al het echte sprongadres of de offset bevat. 

Net zoals na PASSA in figuur 4 begint het na PASSB in figuur 7 met de 
aanroep van de subroutine OPLEN. Het is dan bekend hoeveel plaatsen 
CURAD moet worden verplaatst om de volgende instruktie-opcode in het 
vizier te krijgen. 

Vervolgens LDA-(CURADL),Y met Y gelijk aan nul; de opcode van de 
onderzochte instruktie gaat de accu in. Vervolgens worden de sprong- 
instrukties op aanwezigheid getest en uitgefilterd: 
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Figuur 7. Het gedetailleerde stroomdiagram van figuur 2. Fase 2 van het assembleren. 
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1. CMP IMM 4C 
BEOQ 
Is het de instruktie JMP- (jump-absoluut), dan verder naar label JUMPS. 
2. CMP IMM 29 
BEO 
Is het de instruktie JSR-, dan verder naar label JUMPS. 
3. AND IMM 1F 
CMP IMM 19 
BEO 
Door het maskeren van de accu-inhoud met 1F is het linker nibble van 
de accu-inhoud nooit groter dan 1: het rechter nibble blijft ongewijzigd. 
Nu hebben alle voorwaardelijke spronginstrukties een rechter nibble dat 
gelijk is aan nul; alle voorwaardelijke spronginstrukties horen tot 
kolom @ van figuur 20 van hoofdstuk 8: de laagste kolom met het 
laagste rechter nibble van alle opcodes. Het is dus mogelijk om na 
CMP IMM 1@ op grond van de toestand van de Z-vlag voorwaardelijke 
spronginstrukties af te scheiden (gang naar het label BRINST in 
figuur 7). 
Is het geen spronginstruktie, dan volgt direkt het programmadeel, volgend 
op het label PB. Is het wel een spronginstruktie dan keren we terug naar 
PB nadat één van de programmadelen JUMPS en BRINST is afgewerkt. 
Door het aanroepen van de subroutine NEXT wordt de volgende instruktie 
voor onderzoek voorbereid. Tenminste: áls er nog een volgende instruktie 
te onderzoeken is. Dat hangt af van de positie van CURAD ten opzichte 
van CEND. Blijkt na de BMI dat er nog instrukties te onderzoeken zijn, 
dan gaan we terug naar PASSB. Zijn de instrukties “op’’, dan springen we 
naar het label START dat hoort bij het centrale punt van de monitor (zie 
hoofdstuk 7). Het assembleren is dan voltooid. 


JMP en JSR afhandelen 


Van onvoorwaarlijke spronginstrukties, die moeten worden geassembleerd, 
wordt in het programmadeel met label JUMPS het echte sprongadres op- 
gespoord en vervolgens in de vorm van het echte operandbyte aan de 
instruktie toegevoegd. 

Na het O1 maken van Y (INY: Y was nul) wordt de subroutine GETLBL 
aangeroepen. Deze subroutine (figuur 8) gaat nog in detail worden be- 
sproken. Wat hier en nu van belang is is dat het X-register na afloop van 
GETLBL het linker adresbyte ADH van het label bevat en de accu het 
rechter adresbyte ADL. Dat komt GETLBL aan de weet door het eerste 
operandbyte van de JMP of JSR te bekijken of dat als labelnummer voor- 
komt in de labelgeheugenruimte, die tijdens fase 1 van het assembleren is 
opgebouwd. Is een labelnummer, gelijk aan het eerste operandbyte niet 
aanwezig, dan wordt de Z-vlag 1 gemaakt en volgt via de aansluitende BEOQ 
de sprong naar label PB: de volgende instruktie is dan aan bod. 

Deze situatie doet zich voor bij spronginstrukties die niet hoeven te 
worden geassembleerd omdat het sprongadres voor het editen van het 
gebruikersprogramma al bekend is. 

Staat het eerste operandbyte van de JMP of JSR wel als labelnummer in 
de labelgeheugenruimte (symbol stack), dan gebeurt het volgende: 
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1. STA-(CURADL),Y, waarbij Y = 1 
De inhoud van de accu is gelijk aan het rechter adresbyte ADL van het 
label en gaat naar de geheugenplaats, aangewezen door de adreswijzer 
CURAD+1, dus naar de geheugenplaats, bestemd voor het (eerste) 
operandbyte. 
2. TXA 
INY 
STA-(CURADL),Y, met Y =,03T 
De inhoud van het X-register is gelijk aan het linker adresbyte ADH van 
het label en gaat via de accu naar de geheugenplaats, aangewezen door 
CURAD+2, dus naar de geheugenplaats, bestemd voor het tweede 
operandbyte. 
Vóór het assembleren was de operand van de JMP of JSR gelijk aan XX 00, 
met XX het labelnummer. Nu is daar het echte sprongadres voor in de 
plaats gekomen. Tot slot leidt de BNE ons terug naar label PB, voor de 
volgende instruktie. 


Voorwaardelijke spronginstrukties afhandelen 


Zodra een voorwaardelijke spronginstruktie is ontdekt wordt het program- 
madeel met label BRINST afgewerkt. Evenals JUMPS begint dat met: 

INY 

JSR-GETLBL 

BEO 

Na afloop staat er in X de ADH en in A de ADL van het sprongadres. Ten- 
minste: indien het operandbyte als labelnummer tijdens GETLBL is her- 
kend in de labelgeheugenruimte. Is dat niet het geval, omdat de voorwaar- 
delijke spronginstruktie kennelijk niet hoefde te worden geassembleerd 
en dat weer omdat de offset al was ingevuld, dan volgt de sprong naar PB 
voor de volgende instruktie. 

Is het operandbyte wel als labeinummer herkend, dan wordt op grond van 
de beschikbaar gekomen adresinformatie ADH en ADL de offset berekend 
en op deze offset de plaats van het operandbyte gezet. Dat gaat zo: 

Voor het berekenen van de offset is het voldoende om de ADL van de 
plaats met de opcode te kennen en het rechter adresbyte van het sprong- 
adres (vanwege het maximale offsetbereik). Dat laatste nu staat als resul- 
taat van GETLBL in de accu. Door de instruktie SBC-CURADL ziet de 
accu er na afloop zo uit: 


ADL sprongadres 
_ ADL adres met opcode vw spronginstr. 


A = offset plus 2 


De echte offset wordt verkregen door van de accu-inhoud nogmaals 2 af 
te trekken: SBC IMM 92. Die korrektie met het aftrekken van 2 is nodig 
omdat we bij offsets rekening moeten houden met het aantal stappen dat 
de programmateller PC moet maken om op het doeladres terecht te 
komen. Na een voorwaardelijke instruktie te zijn tegengekomen staat die 
PC al gericht op de opcode van de volgende instruktie. 
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De subroutine GETLBL 


Adressen opzoeken 


De instrukties van de subroutine GETLBL staan allemaal netjes bij elkaar 
in figuur 8. Eerst vatten we de toestand na afloop van GETLBL punts- 
gewijze samen: 
1. (eerste) operandbyte niet aanwezig als labelnummer: Z = 1. 
2. (eerste) operandbyte wel aanwezig als labetnummer: 

a.Z=@ 

b. A bevat ADL sprongadres 

c. X bevat ADH sprongadres 


Figuur 8 begint met het laden van de accu met de inhoud van de geheugen- 
plaats, aangewezen door CURAD+1, dus met het labelnummer (vlak voor 
het begin van GETLBL is Y @1 gemaakt). De inhoud van het Y-register 
wordt vervolgens gelijk aan FF gemaakt. De waarde van Y bepaalt straks 
welk labelnummer in de labelgeheugenruimte wordt vergeleken met het 
mogelijke labelnummer in de accu. 

We zijn toe aan het programmadeel met tabel SYMA. De instruktie CPY- 
LABELS gaat in kombinatie met de BEO die erop volgt na of het hoogste 
label in de labelgeheugenruimte al onderzocht is of niet. Zonee, dan gaan 
we via SYMB en RTS eruit; er is dan geen labelnummer gevonden dat 
overeenkomt met het (eerste) operandbyte, De inhoud van LABELS is aan 
het eind van de eerste fase van het assembleren gelijk aan FF minus drie 
keer het aantal tabels op de labelgeheugenruimte. | 

De volgende instruktie, CMP-(TABLEL),Y vergelijkt de accu-inhoud 
(= mogelijk labelnummer) met de inhoud van de geheugenplaats, die wordt 
aangewezen door de adreswijzer TABLE+Y. Voor Y = FF, aan het begin, 
is dat de inhoud van de geheugenplaats, aangewezen door ENDAD en 
wordt A vergeleken met het eerste label dat in de labelgeheugenruimte (op 
de symbol stack) is geplaatst; de volgende waarde van Y is, naar zal blijken 
3 lager en dan gaat het om het tweede labelnummer, enzovoorts. De op de 
CMP aansluitende BNE test of het labelnummer overeenkomt met de accu- 
inhoud, dus of het labelnummer is gevonden. 

Es het labelnummer (nog) niet gevonden dat gaat het programma verder bij 
het label SYMNXT: de verlaging van Y met 3, de test of Y @® is geworden 
en als dat niet het geval is de sprong terug naar SYMA voor een volgend 
stel vergelijkoperaties. De verhoging van Y met 3 heeft te maken met het 
feit dat bij de gang naar een volgend labelnummer in de labelgeheugen- 
ruimte in eerste instantie de plaatsen met een tabelnummer worden be- 
keken. 

Stel nu dat na de BNE blijkt dat de inhoud van de plaats, aangewezen door 
TABLE+Y wel een labelnummer is dat overeenkomt met de accu-inhoud. 
Via DEY wordt Y met 1 verlaagd en TABLE+Y wijst dan op de plaats met 
de bij het label horende ADH. Die gaat via de accu (LDA-(TABLEL),Y en 
TAX) naar het X-register. 

We verlagen Y vervolgens weer met 1. De adreswijzer TABLE+Y staat dan 
gericht op de plaats met de bij het label horende ADL. De inhoud van die 
plaats gaat de accu in via de instruktie LDA-(TABLEL),Y. Tot slot dan 
nog de instruktie LDY IMM @1, waardoor de Z-vlag nul gemaakt wordt. 
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GETLBL 


LDA — (CURADLIY] A <p Erman (£ tabelnr} 


LDY # FF YaFF 


a (mr) 


CPY — LABELS 

















DEY Yev-1 
DEY YeY-1 
ja alle tabels 
bekeken? DEV ee 
nee 
CMP — (TABLEL) Y ET Y = 00? 
labelnr gevonden? 
ja (Z = 1) 


Ge 


ja 
RTS 


z=0 
SYMB 


(A = ADL} 


80915-9.3 


Figuur 8. De subroutine GETLBL zorgt ervoor dat na een herkend labelnummer het 


rechter adresbyte ADL van het label in de accu staat en het tinker adresbyte ADH in 
het X-register. 


Hiermee is de bespreking van de assembler van de junior-computer afge- 
rond. Ter afsluiting van dit hoofdstuk en van Junior-computer 2 bespreken 
we de routine BRANCH, waarmee ona fhankelijk van de editor en de 


assembler de offset van een voorwaardelijke spronginstruktie kan worden 
berekend. 
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De EPROM-routine BRANCH 


In Junior-computer 1 is er bij meerdere gelegenheden op gewezen dat de 
offset (het “spring-byte’’) van een voorwaardelijke spronginstruktie 
(“branch instruction’ op zijn Engels) kan worden berekend. Bijvoorbeeld 
op de pagina’s 77 en 78 (hoofdstuk 3) en op de pagina’s 133 en 134 
(hoofdstuk 4). | 
De ceremonie was als volgt: 
(RST) 
AD1 FD5 
GO 
P ORS 
waarna het display er zo uitzag: 
PO RS TU 
met: PQ: rechter adresbyte ADL van opcode vw. spronginstruktie 

RS: rechter adresbyte ADL van het sprongadres 

TU: offset 
en waarbij uiteraard P, O, R en S overeenkomen met numerieke toetsen. 
Een ingedrukte funktietoets gaf @0 G9 QG op het display te zien en als er 
geen offsets meer waren te berekenen kon je door het indrukken van de 
toets RST het offset-rekenprogramma BRANCH verlaten en terugkeren 
naar de monitor. 
Het programma dat dat allemaal doet staat in figuur 9. Het is de EPROM- 
routine BRANCH, met startadres 1FD5. Die begint met het nul maken van 
de D-vlag: er wordt straks binair gerekend. Vervolgens worden de display- 
buffers POINTH, POINTL en INH geladen met @G en springen we naar de 
subroutine GETBYT. 
De subroutine GETBYT is al uitgebreid besproken in hoofdstuk 8 en de 
instrukties ervan zijn te zien in figuur 9 van dat hoofdstuk. Het begint met 
het te kijk zetten van de drie displaybuffers. In het geval BRANCH zal er 
dan ook @@ 9) AP te zien zijn op het display. 
En dan is het voor GETBYT een kwestie van wachten op een ingedrukte 
toets. Is het een numerieke toets dan gaat de waarde ervan de accu in; 
een volgende ingedrukte numerieke toets komt als rechter nibble In de 
accu. Het indrukken van een funktietoets voordat twee numerieke toetsen 
ingedrukt zijn leidt tot het verlaten van GETBYT met N = @; zijn er wel 
twee numerieke toetsen ontdekt, dan is aan het eind van GETBYT N gelijk 
aan 1. 
Na het afwerken van de eerste GETBYT van figuur 9 volgt met een BPL 
een test op de N-vlag. Is die nul, dan beginnen we opnieuw: terug naar het 
label BRANCH. Met andere woorden: na het indrukken van een funktie- 
toets (per ongeluk, nemen we aan) verschijnt er G0 @ @ GP in het display en 
moeten we opnieuw beginnen. 
Zijn er wel twee numerieke toetsen ingedrukt, dan wordt de inhoud van de 
accu, met zijn twee numerieke toetswaarden, gekopieerd in de display- 
buffer POINTH. Tijdens de tweede aanroep van GETBYT, even later, zien 


we dan ook 

PO 69 90 
in het display staan, waarbij PQ het rechter byte ADL is van het adres met 
de opcode van de voorwaardelijke spronginstruktie. 
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AFDS5 ...1FF7 


N BRANCH 










D <q binair rekenen 
A <00 

09 —POINTH 

68 —POINTL 


@9 —INH 


Í GETBYT ĳ 


— ja 


STA — POINTH 


| _ cerevr Ì 


As 


< ja 


STA — POINTL 


SBC — POINTH 


STA — INH 
“ DEC — INH 
JMP — BR 


haal ADL van opcode 


a) [e)> 


ADL opcode > POINTH 









haal ADL van doeladres 


> 







ADL doeladres -> POINT L 
C=06;C =1 (= borrow) 

ADL doeladres — ADL opcode — 1 
offset + 1 —INH 

INH <INH — 1 


volgende offsetberekening 
80915-9-9 


Figuur 9. De EPROM-routine BRANCH, voor het berekenen van offsets van voor- 
waardelijke spronginstrukties zonder gebruik te maken van de editor en de assembler. 


Tijdens de tweede GETBYT worden weer twee numerieke toetsen in de 
accu gezet; een funktietoets leidt weer tot een onderbreking van GETBYT 
met N= @ en de aansluitende BPL voert ons dan weer terug naar het begin 
van BRANCH. Zijn er wel twee numerieke toetsen achter elkaar ingedrukt 
tijdens de tweede GETBYT, dan staat na afloop RS, het rechteradresbyte 
van het sprongadres in de accu en, na STA-POINTL, in de middelste dis- 
playbuffer. 

Nu volgt het eigenlijke offset-rekenwerk. Eerst wordt via een CLC de 
carryvlag C nul gemaakt en dus de borrow C één. Vervolgens wordt van de 
accu-inhoud de inhoud van POINTL afgetrokken en van het resultaat nog 
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eens 1. De accu-inhoud is gelijk aan RS-PQ-—1 en dat is TU+1. De accu- 
inhoud wordt gekopieerd in de rechter displaybuffer INH, waarvan de 
inhoud vervolgens met 1 wordt verlaagd. Na een sprong naar het label BR 
verschijnt tijdens de eerste GETBYT 

PQ RS TU 
in het display, waarbij: 
TU (= offset) = RS-PO—2 
Over de korrektiefaktor 2 is in het voorgaande hoofdstukje "’Voorwaarde- 
lijke spronginstrukties afhandelen” al het een en ander gezegd. 
Het programma blijft binnen de eerste GETBYT totdat twee nieuwe 
numerieke toetsen zijn ingedrukt in het kader van een volgende offset- 
berekening. En dan herhaalt zich het spelletje weer. 


Dat was dan hoofdstuk 9 en dat was dan Junior-computer 2. Zoals in het 
voorwoord van dit boek al is gezegd: wordt vervolgd! 
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Aanhangsel 1 


De programma-listing van de EPROM 


monitor, editor en assembler 


De nu volgende 10 pagina’s 180 tot en met 189 geven de inhoud van de EPROM 
weer. Het is een uitgebreide versie van Aanhangsel 3 van Junior-computer 1, die de 
inhoud van de EPROM weergeeft in de vorm van een “hex dump” (alleen de bytes). 


De 


1. 


Gì 


© © CO wl 


11. 


listing omvat de volgende onderdelen: 
Een overzicht van alle RAM-geheugenptaatsen in pagina GO (“temporaries’) en in 
pagina 1A (PIA-adressering en plaatsen voor de NMI- en de I(RO-sprongvektor). 


2. Het hoofdprogramma van de monitor (1C9g ... 1CB4). 
3. 
4. Subroutines ten dienste van: 


Het hoofdprogramma van de editor (1CB5 ... 1D4C). 


a. de editor: SCAN (1D5C... 1D6E): 
b. de editor en de routine BRANCH: GETBYT (1D6F ... 1587); 
c. de editor en de monitor: SCAND(S) (1D88...1E1F, inklusief SHOW, 
CONVD et GETKEY); 
. de editor: RDINST (1E29... 1E46) en FILLWS (1E47 1E5B): 
‚ de editor en de assembler: OPLEN/LENACC (1E5C ... 1E82): 
. de editor en de assembler: UP (1E83... 1EA5); 
‚ de editor: DOWN (1EA6... 1ED2): 
‚ de editor en de assembler: BEGIN (1ED3... 1EDB); 
de editor: ADCEND (1EDC ... 1EE9): 
de editor en de assembler: RECEND (1EEA ... 1EF7) en 
NEXT (1EF8... 1FGE). 


Teo 


. De opzoektabel LOOK, ten behoeve van de monitor en de editor (subroutine 


CONVD) (1FGF ... 1F1E). 


. De opzoektabel LEN, ten behoeve van de editor en de assembler (subroutine 


OPLEN/LENACC) (1F1F ... 1F2E). 


. De subroutine GETLBL, die wordt gebruikt in de assembler (1F35 ... 1F50). 

‚ Het hoofdprogramma van de assembler (1F51 ... 1FD2). 

‚ De offset-bereken-routine BRANCH (1FD5... 1FF7). 

. Zes EPROM-plaatsen voor het vastleggen van de NMI-, RES- en IRO-vektoren 


(IFFA...1FFF) en zes plaatsen voor twee daaraan gekoppelde JMP-IND- 
instrukties (zie hoofdstuk 3 in boek 1) (1F2F ... 1F34). 

N.B. De plaatsen 1FF8 en 1FF9 worden niet gebruikt. Ze zijn bij het program- 
meren van de EPROM gevuld met FF. 

Alle in de monitor, editor of assembter voorkomende labels en namen van 
geheugenplaatsen, in alfabetische volgorde en met het bijbehorende adres. 
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Nee ee mn 


0095: 1CGG LOYS ORG SIC@8 VERSION D 


818: 

0a2g: 

9038: 

0949: 

0059: SOURCE LISTING OF ELEKTOR'S JUNIOR COMPUTER 
9066: 

2075; WRITTEN BY A, NACHTMANN 

G08p: 

Beg: DATE: 7 FEB. 1988 

9109: . 

6119: THE FEATURES OF JUNIOR'S MONITOR ARE: 

8120: 

0139: HEX ADDRESS DATA DISPLAY (ENTRY VIA RST) 
81498: BEX EDITOR (START ADDRESS SÌCB5) 

0159: HEX ASSEMBLER (START ADDRESS SIF51) 

9169: 

4170: EDITOR'S POINTERS AND TEMPS IN PAGE ZERO 
G18g: 

G195: 1CAG KEY * SOBEL 

2208: 1C4g BEGADL * SOPE2 BEGIN ADDRESS POINTER 
9218: 1COG BEGADH * SPGE3 

0228: 1CAE ENDADL * SOBE4 END ADDRESS POINTER 
0238: 1CAG ENDADH * SOBES 

G248: 1C@9 CURADL & SOGE6 CURRENT ADDRESS POINTER 
8258: 1C9E CURADH * SOBET 

U268: 1C09 CENDL * SAGES CURRENT ADDRESS POINTER 
0278: 1COB CENDH * SOBE9 

0280: 1CBB MOVADL * SODEA 

8298: 1C99 MOVADH * SOBEB 

0308: 1CHg TABLEL * SOBEC 

2310: 1CA9 TABLEH * SGBED 

9328: 1COG LABELS * SOBEE 

0338: 1Cgg BYTES * SOJF6 NUMBER OF BYTES TO BE DISPLAYED 
B340: 1COY COUNT _* SOB 7 

9358: 

9369: MPU REGISTERS IN PAGE ZERO 

6370 - 

8388: ICP PCL * SOGEF 

0399: 1CAG PCH * Sgorg 7 

0496: 1C9B PREG * S4AF) kl Ze 

8418: 1CHg SPUSER * SBar2 

0420: 1CHG ACC * Sgar3 

0430. 1C2G YREG * SQoF4 

B44B. 1ceg XREG * SOaF5 

G450- 

9469: BEX DISPLAY BUFFERS IN PAGE ZERO 

0470: 

0488: 1CGE INL * SOAF8 

0499: 1cag INE x SHBFS 

0506: 1C9g POINTL * SOBFA 

9510: 1CQP POINTH * SOaFB 

0520: 

8530: TEMPORARY DATA BUFFERS IN PAGE ZERO 

9547. 

9558: 1CGG TEMP * SBOFC 

6568: 1C4G TEMPX * SOOFD 

9578: 1C9g NIBBLE * SOOFE 

95808: 1CGg MODE * SOOFF (0 = DA MODE, #8 = AD MODE) 
0596: . 

06ĲB: MEMORY LOCATIONS IN THE 6532-IC 

8619: 

9628: 1C9G PAD k SlA88 DATA REGISTER OF PORT A 
9638: COG PADD * SlA81 DATA DIRECTION REGISTER OF PORT A 
9640: 1CQ8 PBD * SlA82 DATA REGISTER OF PORT B 
8658; 1Cgg PBDD « SlA83 DATA DIRECTION REGISTER OF PORT B 
2660: 

0670: WRITE EDGE DETECT CONTROL 

9689; 

0699: 1CHZ EDETA *% SIAE4 NEG EDEFT DISABLE PA7-IRQ 
0708: 1C9g EDETB * SIAE5 POS EDET DISABLE PA7-IRQ 
0718: 1CH9 WDETC * SlAE6 NEG EDET ENABLE PA7-IRQ 
aas 1C@g EDETD «+ SlAE7 POS EDET ENABLE PA7-IRQ 
8740: READ FLAG REGISTER AND CLEAR TIMER & IRQ FLAG 
8759: 

0768: 1Cgg RDFLAG & SlIAD5 BIT6=PAJ-FLAG: BIT?7=TIMER-FLAG 
0770: 

B Zen WRITE COUNT INTO TIMER, DISABLE TIMER-IRQ 
8868. 1cae CNTA * SlAF4 CLKIT 

9818. 1cga CNTB * SIAFS5 CLKST 

9828. 1cgg CNTC * SIAF6 CLK64T 

88308. 1ceg CNTD * SlAF7 CLKIKT 

849. 

Doe WRITE COUNT INTO TIMER, ENABLE TIMER-IRQ 
6878. 1Ccag CNTE * SIAFC CLKIT 

0880. 1cag CNTF * SIAFD CLK&T 

0890. 1cgg CNTG * SIAFE CLK64T 

6958. 1Cgg CNTH * SlAFF CLKIKT 

9918: 

9928: INTERRUPT VECTORS: IRQ & NMI VECTORS SHOULD BE 
0930: LOADED IN THE FOLLOWING MEMORY LOCATIONS FOR 
G940: PROPER SYSTEM OPERATION. 
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8958: 
gE: 
997: 
g98p: 
Gp: 
1906: 
1918: 
1828: 
1630: 
1940: 
1650: 
1568: 
1976: 
1089: 
1899: 
1180: 
1118: 
1126: 
1138: 
1148: 
1150: 
1168: 
1178: 
1186: 
1198: 
1298: 
1218: 
1220: 
1238: 
1240: 
1258: 
En 1260: 
1278: 
1289: 
1299: 
1388: 
13148: 
1329: 
1338: 
1348: 
1356: 
13608: 
1378: 
„1386: 
1399: 
1484 : 
1429: 
1429: 
1436: 
1449 : 
1455: 
1466: 
1479: 
1488: 
1496: 
1580: 
1518: 
1520: 
1538: 
1540: 
1558: 
1568: 
1578: 
1588: 
1598: 
1699 : 
1619: 
1629 : 
16309: 
1649: 
1659 : 
1668 : 
16765: 
1688: 
1698: 
1709: 
1710: 
1728: 
1734: 
1748: 
1758: 
1768: 
1778: 
1789: 
17968: 
18459 : 
1810: 
1829; 
1839; 
1848: 
1850: 
1869: 
1879: 
1889 : 
1896: 


vsa trema 


ee en mee 


1c&g 
1C&g 
1c9g 
1c8g 


iCg® 
1Cg2 
1Cg3 
1C@5 
1Cg6 
1Cg8 
1CGA 
1C@B 
1C@D 
1C@F 
1C11 
1C13 
1C14 
1C16 
1c18 
1ClA 


lCID 
ICIF 
1C22 


1C24 
1C26 
1C28 
1C2A 
1C2C 
1C2E 
1C2F 
1C31 
1C32 


1C33 
1C36 
1C38 
1C3B 
1C3D 
1C49 
1C42 


1C45 
1C47 
1C49 
1C4B 
1C4C 
1C4E 
1C4F 
1C51 
1C52 
1C54 
1C55 
1C57 
1C59 
1C5B 
1C5C 
1C5SE 
1C6Q 
1C62 
1C64 


1C66 
1C68 
1C6A 
1C6C 
1C6E 


1c78 
1C72 
1C74 
1C 76 
1C78 
1C7A 


1C7D 
1C?F 
iC81 
1C83 
1C85 
1C87 
1C89 


1C8C 
1C8E 


85 


88 
FB 
88 
FB 
88 
F6 
F9 


13 
13 
F2 
FB 
FA 


Fl 


NMIL 
NMIH 
IRQL 
IRQH 


* 
* 
* 
* 


SlA7A 
SlA7B 
SlA7E 
SlA7F 


BEGINNERS MAY LOAD 
SICBB FOR STEP BY STEP MODUS AND BRK COMMAND 


NMI LOWER BYTE 
NMI HIGHER BYTE 
IRQ LOWER BYTE 
IRQ HIGHER BYTE 


INTO THESE LOCATIONS 


JUNIOR'S MAINROUTINES 


SAVE 
SAVEA 
SAVEB 
EIA 
RESET 
lA 
ID START 
1D STARA 
1D 
1D 
GOEXEC 
ADMODE 
DAMODE 
STEP 
1C STEPA 
PCKEY 
1C 


STAZ 
PLA 
STAZ 
PLA 
STAZ 
STAZ 
PLA 
STAZ 
STAZ 
STYZ 
STXZ 
TSX 
STX 


LDXIM 
STX2 
JMP 


LDAIM 
STA 
LDA IM 


STAZ 
LDAIM 


STAZ 
STAZ 
LDXIM 
TXS 
STXZ 
CLD 
SEI 


JSR 
BNE 
JSR 
BEQ 
JSR 
BEQ 
JSR 


CMPIM 
BNE 
LDXZ 
TXS 
LDAZ 
PRA 
LDAZ 
PHA 
LDAZ 
PHA 
LDXZ 
LDYZ 
LDAZ 
RTI 
CMPIM 
BNE 
LDAIM 
STAZ 
BNE 


CMPIM 
BNE 
LDAIM 
STAZ 
BEQ 


CMPIM 
BNE 
INCZ 
BNE 
INCZ 
JMP 


CMPIM 
BNE 
LDAZ 
STA2 
LDAZ 
STAZ 
JMP 


ILEKEY CMPIM 


BPL 


ee a dede 


ACC 
PREG 


PCL 
POINTL 


PCH 
POINTE 
YREG 
XREG 


SPUSER 


S01 
MODE 
START 


SLE 
PBDD 
504 
PREG 
S03 
MODE 
BYTES 
SFF 


SPUSER 


SCAND 
START 
SCAND 
STARA 
SCAND 
STARA 
GETKEY 


S13 
ADMODE 
SPUSER 


POINTH 
POINTL 
PREG 


XREG 
YREG 
ACC 


s18 
DAMODE 
s03 
MODE 
STEPA 


$1Ì 
STEP 
s8g 
MODE 
STEPA 


$12 
PCKEY 
POINTL 
STEPA 
POINTH 
START 


14 
ILLKEY 
PCL 
POINTL 
PCH 
POINTH 
STEPA 


$15 
STEPA 


SAVE ACCU 

GET CURRENT P-REGISTER 
SAVE P-REGISTER 

GET CURRENT PCL 

SAVE CURRENT PCL 

PCL TO DISPLAY BUFFER 
GET CURRENT PCH 

SAVE CURRENT PCH 

PCH TO DISPLAY BUFFER 
SAVE CURRENT Y-REGISTER 
SAVE CURRENT X-REGISTER 
GET CURRENT SP 

SAVE CURRENT SP 

SET AD-MODE 


PBl---PB4 
IS OUTPUT 
RESET P-REGISTER 


SET AD=-MODE 
DISPLAY POINTE,POINTL, INH 
ADJUST THE STACKPOINTER 


DISPLAY DATA SPECIFIED BY POINTH,POINTL 
WAIT UNTIL KEY IS RELEASED 

DISPLAY DATA SPECIFIED BY POINT 

ANY KEY DEPRESSED 

DEBOUNCE KEY 
ANY KEY STILL DEPRESSED 

IF YES , DECODE KEY,RETURN WITH KEY IN ACCU 
GO-KEY? 

GET CURRENT SP 


START EXECUTION AT POINTH,POINTL 


RESTORE CURRENT P REGISTER 


EXECUTE PROGRAM 
AD-KEY? 


SET AD-MODE 


DA=KEY? 


SET DA-MODE 


PLUS-KEY? 


PC-KEY? 


LAST PC TO DISPLAY BUFFER 


ILLEGAL KEY? 
IF YES,IGNORE IT 
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mi mmm 


1959 
1919 
1928 
1936 
1940 


1959: 
1968: 
1978: 
19868: 
1999: 
“2000 


20819 
2920 


2930: 
2949: 
2058: 
2968: 
2978: 
2989: 
2694: 
21088: 


: 1C98 
: 1C92 
: 1C94 
: 1C96 
: 1C98 
1C99 
1C9A 
1C9B 
1C9C 
1C9E 
1CA9 


… ev 


1CA3 
1CA5 
1CA7 
1CA9 
1CAA 
1CAC 
1CAE 
1CB9 
ICB2 


2118: 
2129: 
2139: 
214ô: 
2158: 
2168: 
2176: 
2182: 
2190: 
2208: 
2210: 
2229: 
2230: 
2248: 


2259 


2260: 
2270: 
2289: 
2296: 
2308: 
2318: 
2329: 
2339: 


2348: 
2350: 
2360: 
2378: 


2389 


2398; 
2488; 
2418: 
2428; 
2438: 
2440: 


iCB5 
ICB8 
1CBA 
ICBC 
: ÌCBD 
ICBF 
ICC@ 
1CC2 
1CC4 
1CC6 
1CC8 


2459: 


2460: 


1CCA 


24708: 


2488: 
2499; 
2508; 
2518: 
2520: 
2538: 
2540: 
2550: 
2568: 
25708: 
25848: 


2599 
2609 


2618: 
2628: 
2635: 


2640 


2659: 
2669: 


2679 


26808: 


iCCD 
ICCF 
1CD1 
1CD4 
1CD6 
1CD8 
1CDB 
1CDD 
ÌCDF 
1CE2 
1CE4 
: ÌCEG6 
: 1CES8 
ICEA 
1CEB 
ICED 
: 1CEF 
ICF] 
ICF4 
: ICF? 
1CF9 


2699: 


2708 
2710 


2720: 
2739: 


2749 


2758: 


: ICFB 
: ICFD 
ICFF 
1D 2 
: 1D94 
1D87 


2760: 


2779 
2786 
2799 


2860: 


2810 
2829 
2839 
2840 
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2 1099 
: 1D9B 
: 1D4D 
1D18 
: 1D12 
: iD15 
: 1D18 
z 1DIA 


29 


El 
JA 


g4 
FA 
FB 


F9 
FA 
El 
FA 
TA 


D3 
E2 
dl 
E8 
E9 
77 
58 
E6 


4D 


ED en ee ee ee ee 


1C 


IC 


lE 


1D 


1D 


1D 


lE 


lE 
lE 


1E 


JE 


lE 


lE 
1E 


DATA STAZ KEY SAVE KEY 
LDYZ MODE Y=8 IS DATA MODE,ELSE ADDRESS MODE 
BNE ADDRES 
LDAIY POINTL GET DATA SPECIFIED 


ASLA BY POINT 

ASLA SHIFT LOW ORDER 

ASLA NIBBLE INTO HIGH ORDER NIBBLE 
ASLA 

ORAZ KEY DATA WITH KEY 


STAIY POINTL RESTORE DATA 
JMP STEPA 


ADDRES LDXIM $84 4 SHIFTS S H {ET 
ADLOOP ASLZ POINTL POINTH,POINTL 4 POSITIONS TO LEPT 

ROLZ POINTH 

DEX 

BNE _ ADLOOP 

LDAZ POINTL 

ORAZ KEY RESTORE ADDRESS 

STAZ POINTL 

JMP _ STEPA 





JUNIOR'S HEX EDITOR 
FOLLOWING COMMANDS ARE VALID: 
"INSERT": INSERT A NEW LINE JUST BEFORE DISPLAYED LINE 


"INPUT": INSERT A NEW LINE JUST BEHIND THE 
DISPLAYED LINE 


"SEARCH": SEARCH IN WORKSPACE FOR A GIVEN 2BYTE PATTERN 
“SKIP": SKIP TO NEXT INSTRUCTION 
“DELETE ": DELETE CURRENT DISPLAYED INSTRUCTION 


AN ERROR IS INDICATED, IF THE INSTRUCTION POINTER 
CURAD IS OUT OF RANGE 


EDITOR JSR BEGIN CURAD: =BEGAD 
LDYZ BEGADH 
LDX2 BEGADL 
INX 
BNE EDIT 
INY 

EDIT STXZ CENDL CEND:=BEGAD+1 
STYZ CENDH 
LDAIM 577 DISPLAY "77" 
LDYIM S@4 
STAIY CURADL 


CMND JSR SCAN DISPLAY CURRENT INSTRUCTION,WAIT FOR A KEY 


SEARCH CMPIM S$14 SEARCH COMMAND ? 
BNE INSERT 
JSR GETBYT READ 1ST BYTE 
BPL SEARCH COM. KEY? 
STAZ POINTH DISCARD DATA 
JSR GETBYT READ 2ND BYTE 
BPL SEARCH COM. KEY? 
STAZ POINTL DISCARD DATA 
JSR BEGIN CURAD: =BEGAD 
SELOOP LDYIM Sgg 
LDAIY CURADL COMPARE INSTRUCTION 
CMPZ POINTH AGAINST DATA TO BE SEARCHED 
BNE SEARA SKIP TO NEXT INSTRUCTION, IFP NOT EQUAL 
INY 
LDAIY CURADL 
CMPZ POINTL 
BEQ CMND RETURN, IF 2BYTE PATTERN IS FOUND 
SEARA JSR OPLEN GET LENGTH OF THE CURRENT INSTRUCTION 
JSR NEXT SKIP TO NEXT INSTRUCTION 
BMI SELOOP SEARCH AGAIN, IF CURAD IS LESS THAN CEND 
BPL ERRA 


INSERT CMPIM $1g INSERT COMMAND? 
BNE INPUT 
JSR RDINST READ INSTRUCTION AND COMPUTE LENGTH 
BPL SEARCH COM. KEY? 
JSR FILLWS MOVE DATA IN WS DOWNWARD BY THE AM. IN BYTES 
BEO CMND RETURN TO DISPLAY THE INSERTED INSTR. 


INPUT CMPIM 513 INPUT COMMAND? 
BNE SKIP 
JSR RDINST READ INSTRUCTION AND COMPUTE LENGTH 
BPL SEARCH COM. KEY? 
JSR OPLEN LENGTH OF THE CURRENT INSTR. 
JSR NEXT RETURN WITH N=l, IF CURAD IS LESS THAN CEND 
LDAZ TEMPX LENGTR OF INSTR. TO BE INSERTED 
STAZ BYTES 


ee eee ee en 


2854: 1DÌC 
2864: 1IDIF 
2870: 
2888: 1D21 
2899: 1D23 
2999: 1D25 
2918: 1D28 
292@: 1D2A 
29308: 
2948: ÌD2C 
2958: 1D2E 
2368: 1D3@ 
2978: 1D33 
2988: 1D36 
299: 
3030: 1D39 
3819: 1D3B 
3824: 1D3D 
3834: 1D3F 
3049: 1D41 
3458: ÌD43 
3869: 1D45 
36709: 1D48 
3988: 1D4A 
3090: 
3188: 
3118: 
3128: 
3136: 
314B: 
3158: 
3168: 
3170: 
3189: 
3199: 
3249: 
32149: 
3228: 
3238: 
3248: 
3258: 
3268; 
3278: 1D4D 
3288: ID4F 
3298: 1D5Ì 
3398: 1D53 
3319: 1D55 
3328: 1056 
3330: 1057 
3348: 1DS59 
3358: ID5C 
3368: IDSF 
3376: 1D61 
3380: 1D64 
3398: iD66 
3498: 1D69 
3412: 1D6B 
3428: 1D6E 
3430: 
3448; 
3458: 
3460; 
3470: 
3488: 
3499: 
3508: ID6F 
3518: 1D72 
3528: 1D74 
3538: 1D76 
3540: 1D77 
3558: 1D78 
3568: 1D79 
3578: 1D7A 
3588: 1D7C 
3598: IDF 
3688: 1081 
3618: 1D83 
3628: 1D85 
3638: 1D87 
3649: 
3659: 
3669: 
3670: 
3688 : 
3699: 
37998: 
3718: 
3720: 
3739: 
3748: 
3759: 
3760: 


AC 


A2 
Ag 
B1 
95 
C8 
CA 
ig 
20 
29 
Dg 
29 
Fg 
20 
Fg 
28 
69 


28 
C9 
18 
DA 
gA 
GA 
BA 
85 
29 
C9 
18 
q5 
A2 
64 


47 
A9 


12 
8 
F8 
Ag 
OD 


11 


83 
EA 
CA 


EE 


FA 
F9 
03 
F6 
BE 


CA 


g2 
gg 
E6 
F9 


5C 
19 
11 


3770: 1D88 AB 09 
3788: 1D8A Bl FA 
3798; 1D8C 85 F9 


lE 


LE 


1E 


1C 


1D 


1C 


1E 
iD 


1D 
1D 


1D 


1D 


1D 


JSR FILLWS MOVE DATA IN WS DOWNWARD BY THE AM. IN BYTES 
BEO CMND RETURN TO DISPLAY THE INSERTED DATA 


SKIP CMPIM S12 SKIP COMMAND? 
BNE DELETE 
JSR NEXT SKIP TO NEXT INSTRUCTION, CURAD LESS THAN CEND? 


BMI CMND 
BPL ERRA 
DELETE CMPIM S11 DELETE COMMAND? 
„BNE ERRA 
„JSR UP DELETE CURRENT INSTR. BY MOVING UP THE WS 
‘_JSR RECEND ADJUST CURRENT END ADDRESS 
JMP CMND 


ERRA à LDAIM SEE 
STAZ POINTH 
STAZ POINTL 
STAZ INH 
LDAIM $93 
STAZ BYTES 
ERRB JSR SCANDS DISPLAY EEEEEE UNTIL KEY IS RELEASED 
BNE ERRB 
JMP CMND 


EDITOR'S SUBROUTINES 


SCAN IS A SUBROUTINE, FILLING UP 

THE DISPLAY BUFFER DETERMINED BY 

CURAD, THEN THE DISPLAY IS SCANNED 
DEPENDING OF THE LENGTH OF THE INSTRUCTION 
POINTED BY CURAD 

IF A DEPRESSED KEY IS DETECTED 


SCAN RETURNS WITH VALUE EN ACCU 


SCAN _LDXIM $S42 FILL UP THE DISPLAY BUFFER 
LDYIM SO : 
FILBUF LDAIY CURADL START FILLING AT OP CODE 
{STAX INH 
‚_INY 
\ DEX 
“BPL _FILBUF 
JSR OPLEN STORE INSTRUCTION LENGTH IN BYTES 
SCANA JSR _SCANDS DISPLAY CURRENT INSTRUCTION 
\BNE SCANA KEY RELEASED? 
SCANB „JSR _SCANDS DISPLAY CURRENT INSTRUCTION 
“_BEQ SCANB ANY KEY DEPRESSED? 
JSR _SCANDS DISPLAY CURRENT INSTRUCTION 
BEQ SCANB ANY KEY STILL DEPRESSED? 
JSR GETKEY IF YES, RETURN WITH KEY IN ACCU 
RTS 


GETBYT READS 2 HEXKEYS AND COMPOSES 
THEIR VALUES IN THE A REGISTER. IF ONLY 
HEXKEYS WERE DEPRESSED, IT RETURNS WITH 
N=l. IF A COMMAND KEY WAS DEPRESSED, IT 
RETURNES WITH N=9, 


GETBYT JSR SCANA READ HIGH ORDER NIBBLE 
CMPIM SÌìg 
BPL BYTEND COMMAND KEY? 
ASLA 
ASLA IF NOT, SAVE HIGH ORDER NIBBLE 
ASLA 
ASLA 
STA NIBBLE 


JSR _SCANA READ LOW ORDER NIBBLE 

CMPIM S10 

BPL _BYTEND COMMAND KEY? 

ORA _NIBBLE IF NOT, COMPOSE BYTE 

LDXIM SFF SET N=l 
BYTEND RTS 
SCAND IS A SUBROUTINE SHOWING DATA SPECIFIED BY 3 &. HAA 
POINT. vS IJ BRA 


SCANDS IS A SUBROUTINE SHOWING THE CONTENTS OF 
DISPLAY BUFFER AS A FUNCTION OF BYTES, 

THE FOLLOWING SUBROUTINE AK SCANS THE KEYBOARD. 

IT RETURNS WITH A=}, IF NO KEY IS DEPRESSED AND 
WITH Af9 IF A KEY IS DEPRESSED, 

WHEN SCAND OR SCANDS ARE LEFT, PAB,..PA7 IS INPUT. 


SCAND LDYIM $49 
LDAIY POINTL GET DATA SPECIFIED BY POINT 
STA4 INH 





1 
4 
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LE fe ve, : / 
dant OE 
PA ED 3800: 1D8E A9 7F SCANDS LDAIM $7F 
3818: 1D98 8D 81 la STA PADD PAg...PA6 IS OUTPUT 
3828: 1D93 A2 98 LDXEM $Q8 ENABLE DISPLAY 
3839: 1D95 A4 F6 LDYZ BYTES FETCH LENGTH FROM BYTES 
3848: 1D97 A5 FB SCDSA LDAZ POINYH OUTPUT IST BYTE 
3858: 1D99 29 CC ID =… JSR _SHÓW 
3860: ID9c 88 DEY 
3878: 1D9D FB ED „„BEQ SCDSB MORE BYTES? 
3888: 1D9F A5 FA © _LDAZ POINTL 
3898: 1DAl 28 CC 1D ‘ JSR SHOW IF YES, OUTPUT 2ND BYTE 
3998: IÌDA4 88  DEY ' 
3918: 1DA5 FO 85 | Beo SCDSB MORE BYTES? L L Vel 
3928; 1DA7 A5 F9 \ LDAZ INH Í , 24 ArNe Eee 4 
3930: IDA9 28 CC ID =| JSR SHOW IF YES, OUTPUT 3RD BYTE 
PACN 3948: 1DAC KS 09 SCDSB ALDAIM SOG | 
3958: 1DAE 8D 81 lA STA PADD PA®...PA7 IS INPUT 
3964: 
39708: 1DBl A9 03 AK LDYIM $93 SCAN 3 ROWS 
3988: 1DB3 A2 89 LDXIM S0G RESET ROW COUNTER 
3999: qe 
RD 4900: 1DB5 A9 FF ONEKEY LDAIM SFF 
=n Zan 4010: 1DB7 8E 82 lA AKA -#STX PBD OUTPUT ROW NUMBER 
4020: IDBA E8 ZS INX ENABLE FOLLOWING ROW 
PAD 4038; 1DBB E8 Á INX 
bn 4048: 1DBC 2D 89 1A “AND _ PAD INPUT ROW PATTERN 
4050: 1DBF 88 ‘__ DEY ALL ROWS SCANNED? 
4865: 1DCB DA F5 ‘-BNE AKA 
ont 4979: 1DC2 Ag 06 U LDYIM S$S06 TURN DISPLAY OFF 
ene han 4588: 1DC4 8C 82 lA STY _ PBD 
4890: 1DC7 89 86 ORAIM 589 SET BIT7=1 
4188: 1DC9 49 FP EORIM SPF INVERT KEY PATTERN 
4112: 1DCB 69 RIS , 
4129: 
4130: THE SUBROUTINE SHOW TRANSPORTS THE 
4149: CONTENTS OF ANY DISPLAY BUFFER TO THE 
4150: DISPLAY. THE X REGISTER IS USED AS A [4 D D Äb / fe 
4169: SCAN COUNTER, IT DETERMINES, IF POINTH, , ies 
4178: POINTL OR INH IS TRANSPORTED TO THE 
4188: DISPLAY. 
R-4198: 1DCC 48 SHOW _ PHA SAVE DISPLAY 
4200: 1DCD 84 FC STYZ TEMP SAVE Y REGISTER 
4218: IDCF 4A LSRA 
4220: 1DD® 4A LSRA GET HIGH ORDER NIBBLE 
4238: 1DD1 4A LSRA 
4248: IDD2 4A LSRA 
4258: 1DD3 28 DF 1D v__JSR CONVD OUTPUT HIGH ORDER NIBBLE 
4268: 1DD6 68 PLA GET DISPLAY AGAIN 
4278: 1DD7 29 QF ANDIM SOF MASK OFF HIGH ORDER NIBBLE 
4288: 1DD9 28 DF 1D JSR CONVD OUTPUT LOW ORDER NIBBLE 
4298: 1DDC A4 FC LDYZ TEMP RESTORE Y REGISTER 
43008 : IDDE 60 RTS 
4310: 
4320: 
4330: 
4340: 
4350: THE SUBROUTINE CONVD CONTROLS THE DISPLAY SCAN, ' 
4369 : IT CONVERTS THE CONTENTS OF THE DISPLAY BUFFER bo en 
4370: TO BE DISPLAYED INTO A SEGMENT PATTERN. Ere 
m ke 4388 : \ 
PAS 4396: 1DDF A8 CONVD TAY USE NIBBLE AS INDEX 
Tom 4480: IDEB B9 BF IF LDAY LOOK FETCH SEGMENT PATTERN 
PAND “- 4418: IDE3 8D 89 IA STA _ PAD OUTPUT SEGMENT PATTERN 
De 4420: IDE6 8E 82 IA STX _ PBD OUTPUT DIGIT ENABLE 
4430 : 1DE9 AB 7F LDYIM S7F 
4440: 1DEB 88 DELAY „-DEY DELAY 590 us APPROX. 5 6 Gb wo 
PAD 4459: IDEC 18 FD „BPL DELAY 
A 4460: IDEE 8C 89 1A STY _ PAD TURN SEGMENTS OFF 
RD 4470: IDF Ad B6: 4 LDYIM S06 
P == 4480: IDF3 8C 82 1A STY _ PBD TURN DISPLAY OFF 
4498: 1DF6 E8 INX ENABLE NEXT DIGIT 
45008: IDF? E8 INX 
4518: IDF8 64 RTS 
4529: 
4530 : GETKEY CONVERTS A DEPRESSED KEY INTO A 
4540: HEX NUMBER, IT RETURNS WITH THE KEY VALUE _ ied 
dee IN ACCU. IF AN INVALID KEY WAS DEPRESSED, 4 = Î5 
4578: 1DF9 A2 21 GETKEY LDXIM $21 START AT ROW @ 
4588: IDFB A6 01 GETKEA LDYIM $01 GET ONE ROW 
4590; 1DFD 28 B5 1D JSR ONEKEY A=8, NO KEY DEPRESSED 
4600: 1EG9 DO 47 BNE _KEYIN 
4610: 1E02 EB 27 CPXIM $27 
4620: 1E94 D8 F5 BNE GETKEA EACH ROW SCANNED? 
4630: 1E86 A9 15 LDAIM $15 RETURN IF INVALID KEY 
4640: 1EQ8 69 RTS 
4650: 1E99 AQ FF KEYIN LDYIM SFF 
4668: 1EGB GA KEYINA ASLA SHIFT LEFT UNTIL Y=KEY NUMBER 
4678: 1E@C BO 83 BCS _ KEYINB 
4680: IEBE C8 INY 
4690: 1E9F 12 FA BPL KEYINA 
4709: 1E1l 8A KEYINB TXA 
4719: ÌEl2 29 BF ANDIM SOF MASK MSD 
4329: 1E14 4A LSRA DEVIDE BY 2 
473g: E15 AA TAX 
474g: 1E16 98 TYA 
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4758: 1E17 
4769: lEÌS9 
47709: lElA 
4784: EIC 
4792: ÌEID 
4889: 1EIF 
4816: 
4820: 
4839: 
4840: 
4850: 
4869: 
4870: 
488%: 1E29 
4899: 1E23 
4909: IE25 
491%: 1E27 
4920: 1E2A 
4939: l1E2C 
4940: 1E2E 
4950: 1E34 
4964: 1E32 
4979: 1E35 
4989: 1E37 
499: I1E39 
5008: 1E3B 
5419: 1E3D 
5028: 1EA4G 
5030: 1E42 
5049: 1E44 
5950: 1E4G6 
5960: 
5078: 
5089: 
509: 
5108: 1E47 
Slìd: IE4A 
5128: 1E4D 
5138: LIE4F 
5149: IES] 
5150: 1E53 
5160: 1E55 
5178: 1E56 
5189: 1E57 
5198: IES9 
5288: 1E5B 
5218: 
5228: 
5239: 
5240: 
5258: lESC 
‚5264: IESE 
5270: E69 
5287: 1E62 
5299: 1E64 
5398: 1E66 
531%: 1E68 
5329: 1E6A 
5337: 1E6C 
5340: 1E6E 
5358: 1E70 
5360: 1E72 
5378: 1E74 
538g: 1E76 
539g: 1E78 
5469: 1E7A 
5418: 1E7C 
5428: 1E7D 
543: 1E89 
5440: 1E82 
5459: 
5460: 
5470: 
5489: 
5498: 1E83 
5508: 1E85 
5519: 1E87 
5529: 1E89 
5539: 1E8B 
5548: lE8D 
5558: 1EBF 
5560: 1E91 
5578: 1E93 
5588: 1E95 
5598: 1E97 
5608: l1E99 
5618: 1E9B 
5620: 1E9D 
563%: 1E9F 
5640; 1EA1 
5650: 1EA3 
5664: EAS 
5678: 
56808: 
5698: 


19 
18 
69 
CA 
Dg 
60 


28 
29 
A2 
Ag 
B5 
91 
CA 
Cg 
C4 
Dg 
69 


AB 
Bl 
Ag 
Cg 
Fg 
Cg 
FR 
C9 
FJ 
Ag 
Cg 
Fg 
29 
C9 
Fg 
29 


BC 
84 
68 


A5 
85 
A5 
85 
A4 
Bl 
Ag 
91 
E6 


E6 
A5 


D 
A5 
C5 
Dd 
68 


03 
07 


FA 


6F 
21 
FB 
6D 
F7 
FD 
F7 
12 
6F 
ar 
FA 
F7 
07 
6F 
g4 
F9 
FF 


A6 


DC 
@2 
gg 
F9 
E6 


F6 
F6 


gg 
E6 
gl 
gg 
A 
4d 
16 
69 
12 
93 
20 
BC 
IF 
19 
g6 
gr 


1F 
F6 


1D 


1E 


1D 


1D 


1E 
lE 


IF 


BPL KEYIND 


KEYINC CLC 

ADCIM $07 ADD ROW OFFSET 
KEYIND DEX 

BNE KEYINC 

RES 


RDINST TRANSFERS AN INSTRUCTION FROM KEYBOARD 
TO THE DISPLAY BUFFER. IT RETURNS WITH N=8 IF 
A COMMAND KEY WAS DEPRESSED. ONCE THE ENTIRE 

INSTRUCTION IS READ, RDINST RETURNS WITH N=l. 


RDINST JSR GETBYT READ OP CODE 
BPL RDB RETURN, IF COMMAND KEY 
STAZ POINTH STORE OP CODE IN DISPLAY BUFFER 
JSR LENACC COMPUTE INSTRUCTION LENGTH 
STYZ COUNT 
STY4A TEMPX 
DEC2 COUNT 


BEQ RDA 1l BYTE INSTRUCTION? 
JSR GETBYT IF NOT, READ FIRST OPERAND 
BPL RDB RETURN, IF COMMAND KEY 


STAZ POINTL STORE IST OPERAND IN DISPLAY BUFFER 
DECZ COUNT 


BEO RDA 2 BYTE INSTRUCTION? 

JSR GETBYT IF NOT, READ 2ND OPERAND 

BPL RDB RETURN IF COMMAND KEY 

STAZ INH STORE Z2ND OPERAND IN DISPLAY BUFFER 
RDA LDXIM SFF N=l 
RDB RTS 


FILEWS TRANSFERS THE DATA FROM DISPLAY TO 
WORKSPACE., IT'S ALWAYS LEFT WITH Z=l 


FILLWS JSR DOWN MOVE DATA DOWN BY THE AMOUNT IN BYTES 
JSR ADCEND ADJUST CURRENT END ADDRESS 


LDXIM 562 
LDYIM SQ 
Ws LDAZX INH FETCH DATA FROM DISPLAY BUFFER 
BEE CURADL INSERT DATA INTO DATA FIELD 
INY 
CPYZ BYTES ALL INSERTED? 
BNE WS IF NOT, CONTINUE 
RTS 


OPLEN COMPUTES THE LENGTH OF ANY 6582 INSTR. 
THE INSTR. LENGTH IS SAVED IN BYTES, 


OPLEN LDYIM $49 
LDAIY CURADL FETCH OP CODE FROM WS 
LENACC LDYIM S@1 LENGTH OF OP CODE IS 1 BYTE 


CMPIM 508 

BEQ LENEND BRK INSTRUCTION? 

CMPIM S4Q 

BEQ LENEND RTI ENSTRUCTION? 

CMPIM S$6 

BEQ LENEND RTS INSTRUCTION? 

LDYIM $83 

CMPIM 520 

BEO LENEND JSR INSTRUCTION? 

ANDIM S$I1F STRIP TO 5 BITS 

CMPIM $19 

BEQ LENEND ANY ABS,Y INSTRUCTION? 

ANDIM SBF STRIP TO 4 BITS 

TAX USE NIBBLE AS INDEX 

LDYX LEN FETCH LENGTH FROM LEN 
LENEND STYZ BYTES DISCARD LENGTH IN BYTES 

RTS 


UP MOVES A DATA FIELD BETWEEN CURAD AND CEND 
UPWARD BY THE AMOUNT IN BYTES 


UP LDAZ CURADL 
STAZ MOVADL 
LDAZ CURADH MOVAD:=CURAD 
STAZ MOVADH 
UPLOOP LDYZ BYTES 
LDAIY MOVADL MOVE UPWARD BY THE AMOUNT IN BYTES 
LDYIM SBH 
STAIY MOVADL 
INCZ MOVADL 


BNE UPA 
INCZ MOVADH MOVADH : =MOVADH+1 
UPA LDAZ MOVADL 


CMPZ CENDL 
BNE UPLOOP ALL DATA MOVED? 
LDAZ MOVADH IF NOT, CONTINUE 


CMPZ  CENDH 
BNE UPLOOP 
RTS 


DOWN MOVES A DATA FIELD BETWEEN CURAD 
AND ENDAD DOWNWARD BY THE AMOUNT IN BYTES 
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5796: 
5716: 
5720: 
5738: 
5740: 
5758: 
5766: 
57708: 
5788: 
5798: 
58098: 
5818: 
5826: 
5838: 
5849: 
5859: 
5868: 
5870: 
5880: 
5898: 
5909: 
5918: 
5928: 
5939: 
594: 
5950: 
5960: 
5978: 
S98g: 
5995: 
6658: 
6910; 
6029: 
6039: 
6d49: 
6059: 
60608: 
6479: 
6085: 
6699: 
6148: 
6116: 
6129: 
6138: 
614: 
6159: 
6164: 
6179: 
6189: 
6194: 
6255: 
6210: 
6220: 
6239: 
6247: 
6250: 
6268: 
6270: 
6280: 
6290; 
6399: 
6318: 
6326: 
6339: 
6348: 
6355: 
6369: 
6370: 
6388: 
6399: 
6499: 
6418; 
64208: 
6430: 
6449: 
6459; 
6469: 
6470: 
6489: 
6499; 
6549: 
6519: 
652D: 
6538: 
6545: 
6558: 
6560: 
6579: 
6586: 
6599: 
6608 : 
6618: 
6628: 
6630: 
6640: 
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iEA6 
lEA8 
lEAA 
LEAC 
lEAE 
lEB& 
l1EB2 
lEB4 
1EB6 
IEB8 
iEBA 
l1EBC 
lEBE 
IECg 
1EC2 
1EC3 
1EC5 
1EC7 
1EC9 
lECB 
lECD 
1ECF 
lED2 


1ED3 
IED5 
lED? 
lED9 
1EDB 


IEDC 
lEDD 
lEDF 
IEE1 
ÌEE3 
1EE5 
iEE7 
lEE9 


lEEA 
lEEB 
1EED 
lIEEF 
lEF1 
lEF 3 
lEF5 
lEF7 


lEF8 
IEF 9 
lEFB 
IEFD 
lEFF 
1FQ1 
1F3 
1FB5 
1IF86 
1F88 
IFGA 
1F9C 
FBE 


IFgF 
iF18 
1F11 
1F12 
1F13 
1F14 
1F15 
1F16 
iF17 
1F18 
1F19 
iFlA 
1F1B 
IF1C 


A5 
85 
A5 
85 
69 


18 
A5 
65 
85 
A5 


85 
69 


38 
A5 
E5 
85 
A5 
E9 
85 
69 


18 
A5 
65 
85 
A5 
69 
85 
38 
A5 
E5 
A5 
E5 
68 


E2 
E6 
E3 
E7 


E8 
F6 
E8 
E9 
gg 
E9 


E8 
F6 
E8 
Eg 
gg 
E9 


E6 
F6 
E6 
E7 
gd 
E7 


E6 
E8 
E7 
E9 


1E 


DOWN _LDAZ 

STAZ 

LDAZ 

STAZ 
DNLOOR#LDYIM 
-_LDAIY 

LDYZ 
STAIY 

LDAZ 

CMP2 

BNE 

LDAZ 

CMPZ 

- „BEQ 

DNA : SEC 

…_LDAZ 
SBC IM 

STAZ 

LDAZ 
‚_SBCIM 

\ STAZ 

; JMP 


È 
DNEND RTS 


CENDL 


MOVADL MOVAD: =CEND 


CENDH 
MOVADH 
Sg 


MOVADL MOVE DOWNWARD BY THE AMOUNT IN BYTES 


BYTES 

MOVADL 
MOVADL 
CURADL 


DNA ALL DATA MOVED? 
MOVADH IF NOT, CONTINUE 


CURADH 
DNEND 


MOVADL 
Sdl 
MOVADL 


MOVADH MOVAD : =MOVAD-1 


sg 
MOVADH 
DNLOOP 


BEGIN SETS CURAD EQUAL TO BEGAD 


BEGIN LDAZ 
STAZ 
LDAZ 
STAZ 
RTS 


BEGADL 
CURADL. 


BEGADH CURAD: =BEGAD 


CURADH 


ADCEND ADVANCES CURRENT END ADDRESS 
DOWNWARD BY THE AMOUNT IN BYTES 


ADCEND CLC 
LDA2 
ADC2 
STAZ 
LDAZ 
ADCIM 
STAZ 
RTS 


CENDL 


BYTES CEND:=CEND+BYTES 


CENDL 
CENDH 
seg 

CENDH 


RECEND REDUCES THE CURRENT END ADDRESS 
BY THE AMOUNT IN BYTES 


RECEND SEC 
LDAZ 
SBCZ 
STAZ 
LDAZ 
SBCIM 
STAZ 
RTS 


CENDL 


BYTES CEÈND:=CEND-BYTES 


CENDL 
CENDH 
seg 

CENDH 


NEXT ADVANCES THE CURRENT DISPLAYED ADDRES 
DOWNWARD BY THE AMOUNT IN BYTES 


NEXT CLC 
LDAZ 
ADCZ 
STAZ 
LDAZ 
ADCIM 
STA 
SEC 
LDAZ 
SBCZ 
LDAZ 
SBCZ 
RTS 


THE LOOKUP TABLE "LOOK" 


CURADL 


BYTES CURAD:=CURAD+BYTES 


CURADL 
CURADH 
sg 

CURADH 


CURADL 
CENDL 
CURADH 
CENDH 


IS USED, TO CONVERT 


A HEX NUMBER INTO A 7 SEGMENT PATTERN, 
THE LOOKUP TABLE "LEN" 
INSTRUCTION INTO AN INSTRUCTION LENGTH. 


LOOK 


Mt rt 0 a U Rr 


S4g 
S79 
S24 
S36 
Si9 
$12 
s02 
$78 
sag 
slö 
sg8 
sg3 
$46 
S21 


ES USED, TO CONVERT AN 


nge 
je 
zn 
mgr 
nge 
me 
ng 
Apt 
wgn 
gr 
Hg u 
ug 
nan 
Hypn 


p Kz Êe. 


Er 


mame vene en ti ie tt en 


6650: 
6662: 
6678: 
6689: 
6699: 
6789: 
6710: 
6729: 
6738: 
6749: 
6750: 
6769: 
6778: 
6786: 
6790: 
6808; 
6819: 
6829: 
6839 - 
6840 - 
6850: 
6860: 
6878; 
6889. 
6899. 
6988: 
6918: 
6929- 
6939: 
6940: 
6950; 
6967: 
6970: 
6980; 
6999: 
088: 
7018: 
7028: 
7030: 
7049; 
2058: 
7469: 
7070: 
7988 - 
7090: 
7198: 
7118: 
7129: 
7136: 
7148: 
7159: 
7169: 
7178: 
7188: 
7198: 
7200: 
7219: 
7220: 
7238: 
1240; 
7256; 
7269: 
7278: 
7288: 
7299: 
7308: 
7318: 
7320: 
7338: 
7348: 
7350: 
1360: 
7376: 
7388: 
7398: 
7400: 
24108: 
7428: 
7438: 
MAAG: 
7458: 
7460: 
7478: 
7480: 
7499: 
7505: 
7518: 
7528: 
7538: 
7540: 
7550: 
7566: 
7578; 
7588: 
7590: 


1FID 
IFIE 


IF1F 
iF29 
1F21 
1F22 
1F23 
1F24 
1F25 
1F26 
1F 27 
iF28 
1F29 
1F2A 
1F2B 
IF 2C 
1F2D 
IF2E 


1F2F 
IF 32 


1F35 
iF37 
1F39 
1F3B 
1F3D 
iF3F 
1F41 
1F42 
iF44 
1F45 
1F46 
1Fr48 
IF4A 


1F4B 
1F4C 
1F4D 
1F4E 
1F58 


1F51 
1F52 
1F54 
1F56 
1F58 
lFS5A 
lFS5C 
IFSE 
iF68 
iF62 


1F65 
1F68 
1F6A 
1F6C 
IF6E 
ir79 
1F71 
1F73 
1F75 
1F77 
1F78 
IF7A 
1F?C 
1F7D 
IF7F 


38 
A5 
E9 
85 
A5 
E9 
85 
A9 
85 
28 


28. 


AG 
Bl 
C9 
Dg 
C8 
Bl 
A4 
91 
88 
A5 
91 
88 
A5 
91 


JA 1A 
JE lA 


E6 
EE 
gD 
EC 
QA 
EC 


EC 
Bl 


E9 


1E 


lE 


Sd6 
SQE 


s02 
sg2 
sg2 
$01 
$02 
sg2 
sq2 
Sd1 
sô 
sg2 
S01 
s01 
503 
s83 
S3 
503 


km 


LEN 


HOR 


JMI NMIL 
JMI IROL 


m5 
np 


JUMP TÔ A USER SELECTABLE NMI VECTOR 
JUMP TO A USER SELECTABLE IRQ VECTOR 


GETLBL IS AN ASSEMBLER SUBROUTINE. IT SEARCHES FOR 
LABELS ON THE SYMBOL PSEUDO STACK. IF THIS STACK 
CONTAINS A VALID LABEL, IT RETURNS WITH THE 

HIGB ORDER LABEL ADDRESS IN X AND THE LOW ORDER LABEL 


ADDRESS IN A. IF NO 
TURNES WITH Z=l. 


GETLBL LDAIY CURADL 


LDYIM SFF 
SYMA CPYZ LABELS 
BEOQ SYMB 


CMPIY TABLEL 
BNE SYMNXT 


LDAIY TABLEL 


LDAIY TABLEL 
LDYIM $01 
SYMB RTS 


SYMNXT DEY 


BNE SYMA 


VALID LABEL IS FOUND, IT RE- 


FETCH CURRENT LABEL NUMBER FROM WS 

RESET PSEUDO STACK 

UPPER MOST SYMBOL TABLE ADDRESS? 

IF YES, RETURN, NO LABEL ON PSEUDO STACK 
LABEL NR. IN WS = LABEL NR. ON PSEUDO STACK? 


IF YES, GET HIGH ORDER ADD 
DISCARD HIGH ORDER ADD IN X 


GET LOW ORDER ADD 
PREPARE Y REGISTER 


Kkkkkkkee KRkkkkKRK 
* X=ÄDH * * A=ADL * 
Kkkkkkkkk KkAkK AAH 


ASSEMBLER MAIN ROUTINE 


FOLLOWING INSTRUCTIONS ARE ASSEMBLED: 


JSR INSTRUCTION 
JMP INSTRUCTION 
BRANCH INSTRUCTIONS 


ASSEMB SEC 
LDA2 ENDADL 
SBCIM SFF 


STAZ TABLEL 
LDAZ ENDADH 
SBCIM S69 

STAZ TABLEE 
LDAIM SFF 

STAZ LABELS 
JSR BEGIN 


PASSA JSR OPLEN 
LDYIM 599 
LDAIY CURADL 
CMPIM SFF 
BNE NXTINS 
INY 
LDAIY CURADL 
LDYZ LABELS 
STAIY TABLEL 
DEY 
LDAZ CURADH 
STAIY TABLEL 
DEY 
LDAZ CURADE 
STAIY TABLEL 


bai ee et he ee ve antennen ae 


TABLE : =ZENDAD-SFF 


CURAD:; =BEGAD 

START PASS ONE, GET CURR. INSTR, 
FETCB CURRENT INSTRUCTION 

IS THE CURRENT INSTR. A LABEL? 

IF YES, FETCH LABEL NR. 

DEPOSIT LABEL NR. ON SYMBOL STACK 


GET HIGH ORDER ADD 
DEPOSIT ON SYMBOL STACK 


GET LOW ORDER ADD 
DEPOSIT ON SYMBOL STACK 
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1F81 
1F82 
1F84 
iF87 
iF8A 


1F8D 
IF9g 
1F92 
1F95 
1F98 
1F9A 
iF9C 
IF9E 
1FAB 
lFA2 
1FA4 
1FA6 
iFA8 
ÌFAA 
ÌFAD 
lFAF 
1FB1 
1FB 3 


1FB6 
1FB7 
1FBA 
1FBC 
1FBE 
IFBF 
IFC@ 
1FC2 


IFC4 
IFC5 
ìFC8 
IFCA 
1FCB 
IFCD 
IFCE 
IFD@ 
1FD2 


IFD5 
1FD6 
1FD8 
1FDA 
IFDC 
IFDE 
lFEÌ 
iFE3 
iFE5 
1FE8 
IFEA 
LFEC 
1FED 
1FEF 
IFF1 
1FF3 
IFF5 


C8 
25 
F9 
91 
8A 
C8 
91 
Dg 


C8 
29 
Fg 
38 
E5 
38 
E9 
9Ìì 
4C 


D8 
Ag 
85 
85 
85 
29 
18 
85 
28 
18 
85 
18 
A5 
E5 
85 
C6 
4C 


eere ee en ad een 


EE 
83 
EA 
65 


F8 


D3 
5C 
eg 
E6 
4C 


20 
12 
iF 
18 
lA 
F8 


83 
F6 
33 


35 
EE 


E6 


E6 
E6 


35 
Eg 


E6 


82 
E6 
AA 


gg 
FB 
FÀ 
F9 
6F 
F2 
FB 
6F 
EB 
FA 


FA 
FB 
F9 
F9 
DE 


1E 
1E 
ir 


LE 


1E 
1E 


1E 


1C 


IF 


1F 


iF 


1D 


1D 


ÌF 


DEY 
STYZ 
JSR 
JSR 
JMP 


NXTINS JSR 
BMI 
JSR 

PASSB JSR 
LDYIM 
LDAIY 
CMPIM 
BEQ 
CMPIM 
BEO 
ANDIM 
CMPIM 
BEQ 

PB JSR 
BMI 
LDAIM 
STAZ 
JMP 


JUMPS INY 
JSR 
BEG 
STAIY 
TXA 
INY 
STAIY 
BNE 


BRINST INY 
JSR 
BEQ 
SEC 
SBCZ 
SEC 
SBCIM 
STAIY 
JMP 


LABELS 
UP 
RECEND 
PASSA 


NEXT 
PASSA 
BEGIN 
OPLEN 
sg 
CURADL 
54C 
JUMPS 
s20 
JUMPS 
SIF 
s18 
BRINST 


NEXT 
PASSB 


sg 3 
BYTES 
START 


GETLBL 
PB 


CURADL 


CURADL 
PB 


GETLBL 
PB 
CURADL 
$02 


CURADL 
PB 


ADJUST PSEUDO STACK POINTER 
DELETE CURRENT LABEL IN WS 
ADJUST CURRENT END ADD 

LOOK FOR MORE LABELS 


IF NO LABEL, SKIP TO NEXT INSTR. 
ALL LABELS IN WS COLLECTED? 
START PASS 2 

GET LENGTH OF TBE CURRENT INSTR, 


FETCH CURRENT INSTR. 
JMP INSTR,? 


JSR INSTR.? 


STRIP TO S BITS 
ANY BRANCH INSTRUCTION? 


IF NOT, RETURN 
ALL LABELS BETWEEN CURAD AND ENDAD ASSEMBLED? 
ENABLE 3 DISPLAY BUFFERS 


EXIT HERE KAkAAkkkk 


SET POINTER TO LABEL NR, 
GET LABEL ADD 
RETURN, IF NOT FOUND 


STORE LOW ORDER ADD 


STORE HIGH ORDER ADD 


SET POINTER TO LABEL NR, 
GET LABEL ADD. 
RETURN, IF LABEL NOT FOUND 


COMPUTE BRANCH OFFSET 


DESTINATION-SOURCE-2=0FFSET 
INSERT BRANCH OFFSET IN WS 


THE SUBROUTINE BRANCH COMPUTES THE OFFSET OF BRANCH 
INSTRUCTIONS. THE 2 RIGHT HAND DISPLAYS SHOW THE 
COMPUTED OFFSET DEFINED BY THE 4 LEFT HAND DISPLAYS. 
THE PROGRAM MUST BE STOPPED WITH THE RESET KEY. 


BRANCH CLD 
LDAIM 

STAZ 

STAZ 

STAZ 

BR „JSR 

“BPL 

STAZ 

JSR 

BPL 

STAZ 

ËLC 

LDAZ 

SBCZ 

STAZ 

_DECZ 

JMP 


sg 

POINTH 
POINTL 
INH 

GETBYT 
BRANCH 
POINTH 
GETBYT 
BRANCH 
POINTL 


POINTL 
POINTH 
INH 
INH 

BR 


RESET DISPLAY BUFFER 


READ SOURCE 

COMMAND KEY? 

SAVE SOURCE IN BUFFER 

READ DESTINATION 

COMMAND KEY 

SAVE DESTINATION IN BUFFER 


FETCH DESTINATION 
SUBTRACT SOURCE 


EQUALIZE AND SAVE OFFSET IN BUFFER 


VECTORS AT THE END OF THE MEMORY: 


IFFA $S2F NMI VECTOR 


IFFB SIF 


IFFC SID RESET VECTOR 


IFFD $ÌC 


IFFE $32 IRQ OR BRK VECTOR 


IFFF S$1F 


END OF JUNIOR'S MONITOR 


- EP 


ii Ri 


8540: 


8558: 


8568: 
8578: 
8589: 
8599: 
8640: 
8616: 
8629; 
8639: 
8640: 
8658: 
8660: 
8678: 
8680: 
8690: 
8706: 
87168: 
8729: 
8739: 
8740: 
8758: 
8760; 
8770: 
8789: 
8799: 
8800: 
8810: 
8828: 
88348: 
8849: 
8859: 
8869: 
8870: 
8889: 


ACC 
ADMODE 
BEGADH 
BRANCH 
CENDB 
CNTB 
CNTF 
COUNT 
DATA 
DNEND 
EDETB 
ENDADH 
FILBUF 
GETKEY 
INH 
IRQH 
KEYINA 
KEY 
LEN 
MOVADH 
NMIH 
OPLEN 
PASSB 
PCH 
POINTL 
RDFLAG 
SAVE 
SCANA 
SCDSA 
SELOOP 
STARA 
SYMA 
TABLEL 
UPA 
XREG 


BE Geen TET 


ro. 
is 


Cà 


TA 


on 
ED Ga 


® Un 


Em rm 
wt 


. 


EN 
7 


‘ 
ï 


r 





GF 3 … ADCEND 
1C5C AK 
ÖBE3 … BEGADL 
IFDS5 BRINST 
PIEI … CENDL 
IAF5 CNTC 
lAFD CNTG 
99F7 — CURADH 
1C995 DELAY 
IED 2 DNLOOP 
lAE5 EDETD 
BBES … ENDADL 
ID51 FILLWS 
1DF9 GETLBL 
00r9 … INL 
l1A?F IROL 
1EÔB KEYINB 
DUEl - LABELS 
1F1F LOOK 
OGER -— MOVADL 
lA7B NMIL 
1E5C PADD 
iF95 PB 
OF —… PCKEY 
ÔJFA PREG 
lAD5 RDINST 
1cgg SAVEA 
1D5C SCANB 
1D97 SCDSB 
1CE2 SHOW 
1C38 START 
1F39 SYMB 
BIEC …— TEMP 
E99 UPLOOP 
QOFS- _ YREG 
b eer Ohm: 
Gr ERADE 
BEGAD H 
ENDAD 1 
Cmtde Ras 
ì \ 
CURAUL 
RENE 
EEND Hf 
DAO KW Ars} 
I ) VAD Hi 


TABLEL 
js BAE rf 


Zer tt 
et je Vet 





SE 
{ 





re 


MGE 





1EDC 
1DB1 
BIE2” 
IFC4 
BEB … 
lAF6 
lAFE 
BIE 
1DEB 
lEAE 
AE 7 
GGE4 - 
1E47 
1F35 
gorg - 
lA7E 
1E1} 
BGEE … 
1F9F 
OGEA — 
ÌA7A 
1A81 
1FAA 
1C7D 
lE28 
1C@5 
1D61 
1DAC 
IDCC 
1C33 
1F4A 
BOFC 
1E8B 
Ogr4 — 


ADDRES 
AKA 
BEGIN 
BYTEND 
CMND 
CNTD 
CNTH 
CURADL 
DELETE 
DOWN 
EDIT 
ERRA 
GETBYT 
GOEXEC 
INPUT 
JUMPS 
KEYINC 
LENACC 
LOYS 
NEXT 
NXTINS 
PAD 
PBDD 
PCL 
RDA 
RECEND 
SAVEB 
SCAND 
SEARA 
SKIP 
STEP 
SYMNXT 
TEMPX 
WDETC 


1CA3 
1DB7 
lED3 
1D87 
1CCA 
lAF 7 
1AFF 
O8E6 
1D2C 
lEA6 
iCCcg 
1039 
1D6F 
1C45 
1Dg9 
1FB6 
ÌE19 
1E69 
1C99 
lEF8 
iF8D 
1A89 
1A83 
OBEF =— 
lE44 
1EEA 
1C9F 
iD88 
1CF1 
1D21 
1C7g 
1F4B 


BOFD 


lAE6 


ADLOOP 
ASSEMB 
BR 
BYTES 
CNTA 
CNTE 
CONVD 
DAMODE 
DNA 
EDETA 
EDITOR 
ERRB 
GETKEA 
ILLKEY 
INSERT 
KEYIN 
KEYIND 
LENEND 
MODE 
NIBBLE 
ONEKEY 
PASSA 
PBD 
POINTH 
RDS 
RESET 
SCAN 
SCANDS 
SEARCH 
SPUSER 
STEPA 
TABLEH 
UP 
Ws 


1CA5 
IFS1 
1FDE 
GgF6 
lAF4 
1AFC 
1DDF 
1C66 
lEC2 
lAE4 
1CB5 
1D45 
IDFB 
1C8C 
iCFB 
1E99 
lE1C 
1E89 


BOFF -— 


ORFE 
1DB5 
1F65 
1A82 


OOFB 


lE46 
iCID 
1D4D 
1DBE 
1CCD 


gar2: 


1C7A 


BED 


1583 
1E51 
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dele 


Aanhangsel 2 


Listings van de programma’s uit 
de hoofdstukken 5 en 6 


zo moet het worden 


galg: 
8929: 
6038: 
8249: 
9655: 
9969: 
9079: 
8985: 
9099; 
8198: 
8118: 
812%: 
8139: 
0145: 
8159: 
9168: 
81708: 
8185: 
9199: 
8258: 
8219: 
#22: 
8239: 
8248: 
8259: 
B265: 
8279: 
8289: 
0299: 
8309: 
8310: 
9329: 
9339: 
5340: 
0350: 
8368: 
8376: 
8388: 
8398: 
8499: 
0415: 
8428: 
9439: 
g44g: 
g4a50: 
8469: 
8478: 
#489: 
8490: 
9508: 
8518: 
8529: 
9538: 
g54g: 
8555: 
8569: 
8570: 
8588: 
g59d: 
9690: 
8618: 
8629: 
8630: 
G649: 
8650: 
9669: 


8208 


0206 
6289 
8200 
9205 
9208 


e20g 


8209 
0202 
8294 
8286 
8208 
9285 
B20D 
g20F 
8211 
8214 


8217 
B21a 
g21C 
Ö21E 
8221 
9223 
8224 
9225 
9227 
8229 
0228 
g22D 


B22E 
9236 
9232 
5235 
8236 
8238 
g23A 


8238 
B23C 
823E 
4249 
8242 
8244 
8246 
g248 
g249 
g24C 


SYMBOL 
COMNUM 
HD 

INH 
SUB 


SYMBOL 
HEXL 
FOINTH 
HD 
GETBYT 
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A9 
85 
85 
85 
20 
18 
85 
85 
20 
4C 


29 
85 
84 
20 
A2 
OA 
CA 
Dg 
95 
85 
B4 
69 


Ag 
84 
29 
18 
AS 
69 
68 


38 
A5 
E9 
85 
A5 
E9 
39 
C8 
4C 
69 


ga 
F9 
FA 


6F 
F3 
F9 
D7 
17 
g8 


2E 
FA 
D7 
2E 
g4 


gg 
D8 
3B 


D7 
gA 


D7 
ga 
D7 
Dê 
gg 
04 


3B 


TABLE 
922E 
8223 
Borg 
B24c 


TABLE 
B8D7 
GgFB 
8223 
IDeF 


g2 
g2 


62 


02 


92 


DA 
HEXDEC 0217 
POENIH SOFR 


HEXH 
DISPL 9209 
COMNUM Z22E 


BINARY DECIMAL CONVERSION 


ORG 
MEMORY CELLS 
INH * 
POINTL * 
POINIH * 
HEXL * 
HEXH * 


S0205 


SOOF9 DISPLAY BUFFERS 
SOJFA 

SAGFB 

SGD? DATA BUFFERS 
Sagng 


MONITOR SUBROUTINE GETBYT 


GETBYT * 


SID6F KEYBOARD & DISPLAY SCAN 


START OF DESPL 


DISPL LDAIM 
STAZ 
STA2 
STAZ 
JSR 
BPL 
STA4 
STAZ 
JSR 
JMP 


Ss DISPLAY 962600 

INH 

POINTL 

POINTH 

GEIBYT READ KEYBOARD, SCAN DISPLAY 
DISPL RETURN IF COMMAND KEY 

INH BYTE TO DISPLAY BUFFER 

HEXL BYFE TO DATA BUFFER 

HEXDEC BINARY DECIMAL CONVERSION 
DA WAIT FOR A NEW BYTE 


SUBROUTINES OF THE CONVERSION PROGRAM 


HEXDEC JSR 
STAZ 
STYZ 
JSR 
LDXIM 
ASLA 
DEX 
BNE 
ORAZ 
STAZ 
STY4 
RIS 


LDYIM 
STX2 
JSR 
CLC 
LDAZ 
ADCIM 
RTS 


SUBTRA SEC 
LDAZ 
SBC IM 
STAZ 
LDAZ 
SBC IM 
BMT 
INY 
JMP 
SUB RTS 


END OF DISPL 


9248 


gans 


COMNUM COMPUTE ONES 
POINTL DISCARD ONES 
HEXL GET CONTENTS OF THE SUBTRACTION COUNTER 
CCMNUM COMPUTE TENS 


$d4 SET SHIFT COUNTER 
SHIFT LEFT 
ALL SHIFTS DONE 
HD IF NOT, CONTINUE 


POINTL TENS & ONES INTO 1 BYTE 
POINTL 
POINTH HUNDREPS TO DISPLAY BUFFER 


s0g RESET HIGH ORDER HEX BUFFER 
HEXH 

SUBTRA SUBTRACT Y*S0A 

HEXL CORRECT SUBTRACTION ERROR 


SDA 


HEXL 16 BIT SUBTRACTION 
SOA 

HEXL 
HEXH 
$0g 

SUB COMPLETE SUBTRACTION, IF RESULT NEGATIVE 
SUBTRACTION COUNTER = Y+1 


SUBTRA CONTINUE SUBTRACTION 


DISPL 8299 GETBYT 1D6F 
HEXH J4D8 HEXL BD? 
POINTL BOFA SUBTRA 923B 
INH org POINTL G@FA 
DA 8298 HEXDEC 8217 
SUBTRA 923B SUB B24C 


nn ann ee ee en dende vem ratten eeen ete eene 


ee de de ded en in 


9918 
8029 
ga30 
0g4g 
e85 
ga6g 
0079 
2089 
agg 
0186 
G119 
9120 
9136 
g14g 


0158: 


: 8200 
: 4200 
: 4000 
: BEBA 
: 4999 
: 0000 
: 0092 
: 0995 
6006 


8169: 


8178: 
6188: 
2199: 
9249: 
8219: 
8228: 
0239: 
2240: 
8256: 


gag 
AGC 
OOGE 
G010 
9013 
0916 
2417 
O9lA 
991D 


6268: 
6270: 
8288: 


8299: 
8308: 
0318: 
329: 


0029 
B821 
0522 
0024 


8330: 


SYMBOL 
DELAY 
PADD 


SYMBOL 


DEMO 
PAD 


A2 49 


E8 
8E 83 


AD 89 
49 FF 
AB Gô 


28 27 
C8 


29 20 
4c g9 


SE 


DJ FD 
60 


TABLE 
2020 
1A81 


TABLE 
890 
JA89 


DEMO ROUTINE 


ORG 


So0gg 


1/0 DEFINITION 


PAD « SlA89 
PADD * SlA81 
PBD * SlA82 
PBDD * S1A83 
DEMO LDXIM 548 
lA STX _ PADD 
INX 
lA STX _ PBDD 
lA FREQ LDA PAD 
EORIM SFF 
LDYIM S6Q 
IA STY PBD 
88 JSR DELAY 
INY 
1A STY PBD 
Bg JSR DELAY 
ge JMP FRED 
SUBROUTINE DELAY 
DELAY TAX 
DEL DEX 
BNE DEL 
RIS 
DEL 0021 DEMO 
PAD 1A88 PBDD 
FREQ 09 DELAY 
PADD 1481 PBD 


4 


DATA REGISTER 

DATA DIRECTION REGISTER 
DATA REGISTER 

DATA DIRECTION REGISTER 
PAQ..,.PA7 IS INPUT 

PBO IS OUTPUT 


READ SWITCH PATTERN 


. INVERT PATTERN 


BĲ IS ZERO 
TOGGLE SPEAKER ON 
DELAY = SWITCHES * LOOP TIME 


TOGGLE SPEAKER OFF 
DEIAY = SWITCHES * LOOP TIME 
RETURN 


X-REGISTER IS THE DELAY COUNTER 
DELAY LOOP 


850 FREQO 8699 
1A83 PBD 1A82 


8920 DEL 8021 
1A82 PBDD 1A83 


191 


htt Wine eiedd 


even 


0818: 
g52g: 
0839: 
ga4g: 
0059: 
9869: 
8870: 
058: 
899: 
8199: 
6119: 
8128: 
9139: 
9145: 
9158: 
6164: 
8179: 
8189: 
9199: 
8209: 
6218: 
9228: 
0239: 
9249: 
0259: 
8268: 
8278: 
0289: 
0299: 
0399: 
9319: 
0329: 
0338: 
8340: 
8358: 
9369: 
0376: 
0388: 
8395: 
8400: 
galg: 
g429: 
430: 
g44g: 
6459: 
8469: 
0475: 
9488: 
0499; 
8509: 


SYMBOL TABLE 


89g5 


608 
0809 
gag 


gagg 
agg 
049 
vp) 


600 
9952 
8985 
8987 
099A 


g45D 
Oggr 


9712 
9215 
0017 
Bla 
@91D 
O9IF 
0822 


da24 
8826 
2529 
982C 
g2F 
2030 
9532 
g334 
9037 
003A 
99 3D 
09 3F 
9049 
0942 


DELA 
KEYA 


KEYVAL 


PAD 
ROWA 
ROW 
TONE 


SYMBOL TABLE 


PLAY 
TB 
ROWA 
KEYC 
EQUAL 
DEL 
PBDD 


192 


A9 


A9 


Ag 
8D 


20 
Fô 
29 
20 
Fö 
20 
A4 


Ag 
8D 
BE 
28 
CA 
Dg 
A9 
8D 
BE 
28 
Fg 
CA 
Dg 
F@ 


Fg 
81 
dÌ 
83 
82 


89 


A4 


F3 
44 


9d 
82 
17) 


FA 
1 
82 
99 


D3 


F8 
EG 


PAG 
OJ 4A 


0g4d 
1A89 


PLE 
B8DI 
Bo24 


290 
OO 3A 
96E 
5594 
OGAA 
lAgg 
1A83 


Sb 5 


Sb 5 


PLAY ROUTINE 
ORG 


So0gg 


TEMPORARY DATA BUFFERS IN PAGE ZERO 


ROW * 
KEY n 
TEMPX * 


sggpo 
SE7DA 
SBEDB 


I/O DEFINITION 


PAD - 
PADD * 
PBD * 
PBDD * 
PLAY LDAIM 
SIA 
LDAIM 
STA 
STA 
LDAIM 
STA 
PA JSR 
BEQ 
JSR 
JSR 
BEQ 
JSR 
LDYZ 
TONE LDAIM 
STA 
LDXY 
TA JSR 
DEX 
BNE 
LDAIM 
STA 
LDXY 
TB JSR 
BEQ 
DEX 
BNE 
BEQ 
DELAY J9A4 
KEYB 4063 
KEY OJDA 
PBDD J}A83 
ROWB 4978 
TA 802C 
PA gel2 
KEYVAL 0644 
ROWB 5078 
KEYIN @9S9C 
ROW G3D9 
PAD 1A88 


S1A8G 
S1a81 
S1A82 
S1A83 


SFg 
PADD 
sl 
PBDD 
PBD 
509 
PAD 


KEYIN 
PA 
DELAY 
KEYIN 
PA 
KEYVAL 
KEY 


sg8 
PBD 
DEL 
EQUAL 
TA 
S01l 
PBD 
DEL 


KEYIN 
PA 


TS 
TONE 


DEL 
KEYC 


PBD 


KEYA 
DELAY 


PADD 


ROW BUFFER 
KEY VALUE BUFFER 
ROW NUMBER BUFFER 


PA7,..PA4 IS OUTPUT 
PA3,,.PAG IS INPUT 


PBG IS OUTPUT 
TOGGLE SPEAKER OFF 


ALL MATRIX ROWS ARE ZERO 


ANY KEY DEPRESSED? 
BRANCH, IF NO 
DEBOUNCE THE KEY 

KEY STILL DEPRESSED 
IF YES, CONTINUE 
COMPUTE THE KEY VALUE 
GET KEY VALUE 


BĲ = q 
TOGGLE SPEAKER ON 

FEICH THE FREQUENCY 
EQUALIZE 22 MICRO SEC. 
HALF PERIODE PASSED? 
WAIT, IF NOT 

BO = 1 

TOGGLE SPEAKER OPF 

FETCH THE FREQUENCY AGAIN 
ANY KEY STILL DEPRESSED? 
IF YES, GENERATE A TONE 
HALF PERIODE PASSED? 
WAIT, IP NOT 

CONTINUE, IF YES 


1AvÒ EQUAL GJAA 
B894 KEYIN 899C 


9912 PADD lA8Ì 
1A82 PLAY JOg 


9582 ROWD BSC 
80 3A TEMPX #@DB 


9924 TA BE 2C 
94A KEYB 9063 
0882 ROND G98C 
GOA DELA JGA6 
ZODA TEMPX 9@DB 
1A81 PBD 1A82 


meerde hie 


eee dae en a en 


0819: 
8220: 
9039: 
854: 
8059: 
g068: 
8570: 
2083: 
8599: 
8105: 
0119: 
9120: 
8139: 
g14g: 
9159: 
8166: 
8178: 
g18g: 
5196: 
2208: 
8210: 
8226: 
8230: 
8245: 
B255: 
8260: 
0278: 
02809: 
0290: 
@308: 
9318: 
8329: 
4339: 
0349: 
8350; 
8369: 
8379: 
9385: 
0390: 
48: 
g410: 
9429: 
0438: 
449: 
458: 
g460: 
2470: 
0480: 
g49%: 
0505: 
9519: 
8520: 
0539: 
9548: 
8559: 
9568: 
0578: 
8588: 
4599: 
6690: 
B619: 
8629: 
8635: 
9649: 
9650: 
9660: 
8670: 
g689: 
g698; 
8709; 
8719: 
8726: 
8739: 
8740: 
8758: 
5768: 
8779: 
8789; 
9795: 
858: 
g518: 
5820: 
2838: 
8849: 
9855: 
g868: 
B870: 
0889: 
g89p: 
g905: 
9915: 
ge20: 
8939: 
9949: 


9044 
8946 
0948 
BO 4A 
2045 
Be AD 
gö4F 
8951 
9854 
9957 
go59 
B95B 
B95D 
Bo5F 
2061 
063 
4065 
B867 
9068 
026A 
096CT 
BIGE 
0979 
0872 
9874 
0075 


0878 
BOA 
B97C 
897D 
97E 
8380 


6382 
de84 
9086 
0887 
0088 
OBA 


B98C 
908E 
gg 
gg91 
9992 


2094 
9896 
4098 
G99B 


99 
LE 
QOAL 
00A3 


ZOA4 
G9AG 
O9A7 
g9A9 


GHAA 
9DAB 
BRAC 
BZAD 
VIAE 
DZAF 


lAQ9 


A9 
85 
A2 


39 
96 
A5 
8D 
AD 
29 
C3 
Fô 


85 
A2 


99 
E8 
E8 
Dg 
F9 
A5 
C9 
DÔ 


C9 
Dg 


18 
69 
Dg 


C9 
D® 


18 
69 
Dg 


C9 
Dg 


18 
69 


85 
Ag 
8D 
68 


8E 
86 
JE 
77 
70 


64 
5E 
59 
54 
4E 


47 
43 
3E 


94 
82 
g6 


Bâ 
12 


gl 
26 
98 
g8 
98 
B4 
BC 


09 
89 


84 
gr 
gr 
FF 


FD 


55 


gg 


SUBROUTINES OF THE PLAY PROGRAM 


KEYVAL LDAIM SF7 


KEYA 


KEYC 


KEYIN 


DELAY 


DELA 


EQUAL 


STAZ 
LDXIM 
DEX 
BMI 
ASLZ 
LDAZ 
STA 
LDA 
ANDIM 
CMPIM 
BEO 
STXZ 
STAZ 
LDXIM 
LSRZ 
BCC 
INX 
CPXIM 
BNE 
BEQ 
LDAZ 
CMPIM 
BNE 
TXA 
JMP 


CMPIM 
BNE 
TXA 
CLC 
ADCIM 
BNE 


CMPIM 


TXA 
CLC 
ADCIM 
BNE 


CMPIM 
BNE 


CLC 
ADCIM 


STAZ 


STA 
RTS 


LDA 
ANDIM 
EORIM 
RTS 


LDYIM 
DEY 
BNE 
RTS 


NOP 
NOP 
NOP 
NOP 
NOP 
RTS 


ORG 


ROW 
S04 


KEYVAL 
ROW 
ROW 
PAD 
PAD 
SOF 


504 
KEYC 


S@1 


508 
KEYC 


$0g 
KEYVAL 
SBC 
KEY 


$00 
PAD 


PAD 
SOF 
SOF 


SEF 


DELA 


$lAdg 


ALL ROWS ARE ONE 


SET UP ROW COUNTER 
RETURN IF INVALID ROW 
IS FOUND 

SPECIFIED ROW IS ZERO 


OUTPUT ROW NUMBER 

IF NO KEY IS DEPRESSED IN THE 
SPECIFIED ROW, OUTPUT 

NEXT ROW NUMBER 


SAVE ROW NUMBER 
SAVE COLUMN NUMBER 


SHIFT UNTIL CARRY CLEAR 
BRANCH TO COMPUTE KEY VALUE 


ALL ROWS SCANNED? 
IF NOT CONTINUE 
RETURN IF INVALID ROW NUMBER 


GET ROW NUMBER AGAIN 
ROW 97 


ROW 1? 


ROW 27 


ROW 32 
RETURN, IF ROW IS INVALID 


SAVE KEY VALUE 
RESET PORT A 


MASK OFF HIGH ORDER NIBBLE 


IF NO KEY: ACCU = $29 


SET DELAY COUNTER 


TIME OUT 2 


EQUALIZE 28 MICRO SEC 


FREQUENCY LOOKUP TABLE 


DEL 


END OF 


HMR Rn 


58E 
$86 
$7E 
877 
$70 
$6A 
564 
SSE 
59 
$54 
$4E 
S4A 
547 
S43 
$3E 
$3C 


193 


0819: 
0820: 
8930: 
8545: 
2859: 
d867: 
0870: 
g58d: 
Aeg: 
9186: 
9110: 
8125: 
6136: 
B1áp: 
6159: 
0169: 
9170: 
G189: 
@199: 
9209: 
0219: 
0220: 
8239: 
2249: 
8259: 
8260: 
2279: 
9289: 
029%: 
0390: 
6310: 
9329: 
0335: 
0340: 
9350: 
0365: 
6378: 
9389: 
g398: 
G499: 
0419: 
8429: 
g436: 
2440: 
9459: 
9460: 
0470: 
9489: 
0499; 
2509: 
2510: 
8529: 
8536: 
B540: 
9559: 
0560: 
0575: 
0589: 
9598: 
06HH: 
velg: 
9629: 
863ó: 
6640: 
9650: 
9668: 
8676: 
0688: 
0699: 
4705: 
0710: 
8729: 
8739: 
9740: 
0758: 
g769: 
9779: 
d784: 
8798: 
9808: 
0819: 
2829: 
9839: 
0848: 
2858: 
9868: 
8879: 
g88%: 
9898; 
9909: 
8919: 
8920: 
9930: 
G945: 
2959: 


194 


g200 


g280 
920% 
g209 
B260 
8208 
9200 
9209 


8299 
0298 


9290 


8288 
2208 
B200 
8208 


8293 
9209 


8290 
0201 
0202 
g204 
9207 
g209 
g28C 
O20E 
0211 
8213 
9216 
8219 
B21B 
g21D 
8220 
9222 
8224 
9226 
9228 
B22A 
g22B 
022D 
822F 
8232 
0234 
8237 
Q23A 
823C 
g23F 
0241 
8243 
9245 
0248 
g249 
024B 
924D 
8259 
8253 
8256 
8257 
8259 
g25B 
G25E 
8261 
8264 
9266 
9267 
9269 
9265 
026E 
8279 
9272 
8274 
8275 
8277 
9279 


78 
D8 
Ag 
8D 
A9 
8D 
A9 
8D 
A9 
BD 
8D 
85 
Ag 
8C 
84 
Ag 
84 
A9 
91 
88 
Cg 
Dô 
29 
Fg 
20 
29 
Fg 
20 
Ag 
85 
A9 
8D 
58 
A4 
A9 
8D 
BE 
20 
CA 
D& 
A9 
8D 
BE 
29 
FG 
CA 
Dg 
Fg 
8D 
A5 
C5 
Fg 
98 
Ag 
91 
C8 


29 
JE 
ìA 
ZP 
Fo 
81 
gl 
83 
82 
DD 
90 
85 
DC 
D8 
DF 
77 
DC 


FF 
F9 
EQ 
FB 
E8 
EG 
F3 
88 
vi 
DE 
FF 
FE 


DA 
a, 
82 
gg 
EE 


FA 
81 
82 
09 
Eg 
g5 


F8 
Eg 
F4 
DC 
DF 
11 


go 
DC 


D27A AS DE 


bb 5E 5 5 


> 


92 


92 
82 


02 


g2 


pbb5 


lA 


INPUT ROUTINE 
ORG S0299 


TEMPORARY DATA BUFF 


ROW * SBBDI 
KEY * SOGDA 
TEMPX * SÒBDB 
NOTEL * SBADC 
NOTER * SQBDD 
LENGTH * SOODE 
ENDL * SGBDF 


INTERVAL TIMER 


CNTA * SlAF4 
CNIG * SLAFE 
GOTO MONITOR 

RESET * S1CID 


1/0 DEFINITION 


PAD * SlA8G 
PADD * $1A81 
PBD * SlA82 
PBDD * $1A83 
IRQ VECTOR 
IRL «& SIAJE 
IROH * SlA7F 
START OF THE INPUT 
INPUT SEI 
CLD 
LDAIM IRQIN 
STA IRQL 
LDAIM IRQIN 
STA IRH 
LDAIM $F9 
STA PADD 
LDAIM S@1 
STA _PBDD 
STA PBD 
STAZ NOTEH 
LDYIM $6@ 
STY PAD 
STYZ NOTEL 
LDYIM SD8 
STYZ ENDL 
LDAIM $77 
INA STAIY NOTEL 
DEY 
CPYIM SFF 
BNE INA 
KEYSCN JSR KEYIN 
BEQ KEYSCN 
JSR DELAY 
JSR KEYIN 
BEQ KEYSCN 
JSR KEYVAL 
LDAIM S56 
STAZ LENGTH 
LDAIM SFF 
STA CNIG 
CLI 
LDYZ KEY 
TONE LDAIM $49 
STA PBD 
LDXY DEL 
TA JSR EQUAL 
DEX 
BNE TA 
LDAIM S61 
STA PBD 
LDXY DEL 
TB JSR KEYIN 
BEQ STORE 
DEX 
BNE TB 
BEO TONE 
STORE STA CNTA 
LDAZ NOTEL 
CMPZ ENDL 
BEQ ST 
TYA 
LDYIM SQ 
STAIY NOTEL 
INY 
LDAZ LENGTH 


ERS IN PAGE ZERO 


NOTE POINTER 


TIME OP A DEPRESSED KEY 
END OF THE NOTE BUFFER 


DISABLE TIMER IRQ 
ENABLE TIMER IRQ, CLK6A4AT 


NEW 1/0 DEFINITION 


PROGRAM 

DISABEE IRQ LINE 
SET UP IRQ VECTOR 
/256 


PA7,..PA4 IS OUTPUT, PA3...PAG IS INPUT 


PB& IS OUTPUT FOR SPEAKER 
TOGGLE SPEAKER OFF 
HIGH ORDER BYTE OF NOTE POINTER 


SET ALL ROWS ZERO 
LOW ORDER BYTE OF NOTE POINTER 
DEFINE ENDADDRESS OF INPUT BUFFER 


LOAD EOF CHARACTER 
FILLUP WORKSPACE WITH EOFS 


WS FILLED UP? 

IF NOT CONTINUE 

ANY KEY DEPRESSED? 

WAIT IF NO KEY IS DEPRESSED 
DEBOUNCE KEYBOARD 

STILL ANY KEY DEPRESSED 

IF YES, CONTINUE 

COMPUTE KEY NUMBER 


RESET TIME COUNTER 

START TIMER, ENABLE TIMER IRQ, 
RESET IRQ LINE 

ENABLE IRQ LINE 

LOOKUP CONVERSION BY KEY VALUE 
TOGGLE SPEAKER ON 

PB6 IS LOG 9 

FETCH DELAY 

EQUALIZE 20 MIKRO SEC 


DELAY 
TOGGLE SPEAKER OFF 


FETCH DELAY AGAIN 


ANY KEY STILL DEPRESSED? 
BRANCH IF KEY IS RELEASED 


CONTINUE AS LONG AS A KEY IS DEPRESSED 
RESET IRQ LINE,DISABLE TIMER IRQ 

IS WORKSPACE FULL? 

IF YES, EXIT HERE 


STORE KEY VALUE IN WS 


GET TIME OF THE DEPRESSED KEY # 


ie een eit 


8969: 
09/9: 
0988: 
4995: 
1999: 
1810: 
9919: 
B82g: 
0539: 
g849: 
8050: 
0969: 
0078: 
298: 
259: 
gig: 
8119: 
8128: 
8130: 
0148: 
2159: 
9168: 
gl: 
2189: 
8195: 
0202: 
8210: 
8229: 
0235: 
0249: 
B25g: 
8269: 
8279: 
4289: 
g29g: 
B345: 
g318: 
0328: 
2339: 
034: 
0355: 
0360: 
6379: 
8380: 
g39p: 
G490: 
9419: 
8428: 
8438: 
8449: 
g455: 
0466: 
0477: 
6489: 
dâ: 
058d: 
g518: 
8520: 
9539: 
9548: 
5558: 
0569: 
8579: 
0588: 
0598: 
8609: 
861%: 
9628: 
8630: 
5649; 
8659: 
B66Ĳ: 
9670: 
6680: 
B695: 
8705: 
8710: 


927C 
927E 
0288 
282 
g285 


9288 
028A 
B28C 
28E 
d28F 
2291 
8293 
9295 
0298 
929B 
2D 
g2F 
B2A1 
92A3 
Q2A5 
D2A7 
g2A9 
Q2AB 
B2AC 
D2AE 
B2B9 
0282 
02B4 
B2B6 
g2B8 
B2B9 


B2BC 
92BE 
B2CH 
B2C1 
g2C2 
g2C4 


g2C6 
92C8 
B2CA 
B2CB 
B2CC 
92CE 


g2D9 
g2D2 
@2D4 
B2D5 
g2D6 


d2D8 
B2DA 
B2DC 
B2DF 


O2E6 
B2E3 
92E5 
Q2E7 


02E8 
G2EA 
G2EB 
B2ED 


Ö2EE 
O2EF 
g2rg 
B2F1 
g2F2 
g2r3 


91 


E6 
E6 


4C 


A9 
85 
A2 


39 
96 
A5 
8D 


29 
C9 
Fg 
86 
85 
A2 
46 
99 
E8 
Eg 
Dg 
Fê 
A5 
C3 
Dg 


4C 


Ca 
D@ 


18 
69 
Dg 


C9 
Dg 


18 
69 
Dg 


C9 
DÒ 


18 
69 


85 
A9 
8D 
69 


DC 


DC 
DC 


2r 


de 


WD 1C ST 


d2 
06 


94 
12 
81 
06 


98 


55 


92 


08 


ag 
Bé 


gg 
85 


89 
gr 
oF 
FF 


FD 


STAIY NOTEL STORE KEY TIME IN WS 


INCZ NOTEL ADJUST NOTE POINTER 


INC2 NOTEL 
JMP KEYSCN 
JMP RESET 


BACK TO MONITOR 


SUBROUTINES OF THE INPUT PROGRAM 


KEYVAL LDAIM S$F7 


KEYA 


KEYC 


KEY IN 


DEIAY 


DELA 


EQUAL 


STAZ 
LDXTM 
DEX 
BMI 
ASLZ 
LDAZ 
STA 
LDA 
ANDIM 
CMPIM 
BEQ 
STXZ 
STAZ 
LDXIM 
LSRZ 
BCC 
INX 
CPXIM 
BNE 
BEO 
LDAZ 
CMPIM 
BNE 
TXA 
JMP 


CMPIM 
BNE 
TXA 
CLC 
ADC IM 
BNE 


CMPIM 
BNE 
TXA 
CLC 
ADCIM 
BNE 


CMPIM 
BNE 
TXA 
CLC 
ADCIM 


STAZ 
LDAIM 
STA 


LDA 
ANDIM 
BORIM 
RTS 


LDYTM 
DEY 


ROW 
S04 


KEYVAL 
ROW 
ROW 
PAD 
PAD 
Sar 
SOF 
KEYA 
TEMPX 
KEY 
Sag 
KEY 
ROWA 


Sd4 
KEYB 
KEYVAL 
TEMPX 
$53 
ROWB 
KEYC 
S02 
ROC 
s4 
KEYC 


SOL 


sg8 
KEYC 


Sg 


SBC 


Sp 
PAD 


PAD 
SOF 
SAF 


SFF 


DELA 


ALL ROWS ARE ONE 


SET UP ROW COUNTER 
RETURN IF INVALID ROW 
IS FOUND 

SPECIFIED ROW IS ZERO 


OUTPUT ROW NUMBER 

IF NO KEY IS DEPRESSED IN THE 
SPECIFIED ROW, OUTPUT 

NEXT ROW NUMBER 


SAVE ROW NUMBER 
SAVE COLUMN NUMBER 


SHIFT UNTIL CARRY CLEAR 
BRANCH TO COMPUTE KEY VALUE 


ALL ROWS SCANNED? 
IF NOT CONTINUE 
RETURN IF INVALID ROW NUMBER 


GET ROW NUMBER AGAIN 
ROW #2 


ROW 17 


ROW 22 


ROW 37 
RETURN, IF ROW IS INVALID 


SAVE KEY VALUE 
RESET PORT A 


MASK OFF HIGH ORDER NIBBLE 


IF NO KEY: ACCU = $49 


SET DELAY COUNTER 


TIME OUT ? 


EQUALIZE 29 MICRO SEC 
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9729: 1A90 ORG _SlA9G \ 
0730: 8 Z Í 
9749: FREQUENCY LOOKUP TABLE |V rk n6e 
8758: 7 
9769: 1AG@ 8E DEL = S8E | 
8770: lAG1 86 = $86 
2780: 1A82 JE = $7E 
9790: 1A83 77 = $77 
9800: A44 70 = 874 
8818: 1AQ5 6A = $6A 
0829: lAZ6 64 = 564 
8839: 1AQ7 SE = $5E 
2849: lAQ8 59 = $59 
2850: 1AG9 54 = $54 
0860: lAGA 4E = S4E 
Q870: 1AGB 4A = $4A 
G8BĲ: 1ABC 47 = 847 
G890: 1AGD 43 = $43 
0900: AGE 3E . $3E 
0919: lAeF = S3C 
8926: 
2930: 
0940: 1A20 ORG $lA29 
8959; 
6969: TIMER INTERRUPT PROGRAM DN 1 Ár sd 
5978: gende 
9980: 1A2G 48 IRQIN PHA SAVE ACCU 5 
2990: lA21 E6 DE INCZ LENGTH INCREMENT TIME 
1098: 1A23 A9 FF LDAIM SFF TIMER OFFSET IS SFF 
1819: JA25 8D FE 1A STA CNIG START TIMER AGAIN 
1920: 1A28 68 PLA RESTORE ACCU 
1939: 1A29 49 RTI 
1049: 
1059: END OF INPUT 
SYMBOL TABLE 
CNIA lAF4 CNIG lAFE DELA O2EA DELAY G2E8 
DEL A09 ENDL OUDF EQUAL Z2EE INA 8228 
INPUT 6209 IROH J1A7F IRQIN JA IRQL IA7E 
KEYA 028E KEYB B2A7 KEYC B2D8 KEYIN @2E9 
KEYSCN @22F _KEYVAL 0288 KEY @@DA LENGTH OUDE 
NOTEH @9DD NOTEL SDC PADD 1A81 PAD 1A89 
PBDD 1A83 PBD 1A82 RESET ICD ROWA @2B2 
ROWB Q28C  ROWC B2C6 ROWD B2D8 ROW _00D9 
ST 9285 STORE 026B TA 2253 TB 8261 
TEMPX ODB TONE 824B 
SYMBOL ‘TABLE 
ROW gps KEY BDA TEMPX GODB NOTEL GYDC 
NOTER GADD LENGIH QODE ENDL BBDF INPUT 0209 
INA 8228 KEYSCN Q22P TONE G24B TA 0253 
TB 2261 STORE 026B ST 8285 _ KEYVAL 0288 
KEYA 828E KEYB @2A7  ROWA 02B2 ROWB 028C 
ROWC B2C6 ROWD @2DY KEYC B2D8 KEYIN @2E9 
DELAY J2E8 DELA Q2EA EQUAL 92EE DEL 1408 
IRQIN lA2 IROL IA7E IRH 1A7F PAD 1A80 
PADD JA8l PBD IA82 PBDD 1A83 CNTA lAF4 
CNTG JlAFE RESET 1CID 
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ge1ô: 
0429: 
A38: 
g049: 
gg58: 
B56d: 
0870: 
2988: 
B: 
919: 
g1ië: 
g120: 
0139: 
g148: 
8155: 
g16g: 
0179: 
0188: 
9198: 
8209: 
8219: 
g228: 
9238: 
6246: 
8255: 
0268: 
0278: 
g286: 
6298: 
9380: 
9319: 
g328: 
g339: 
9348: 
6356: 
8368: 
0370: 
8389: 
9399: 
G400: 
8414: 
g420: 
g430: 
6448: 
g450: 
g469: 
9479: 
2480: 
g495: 
950: 
g515: 
g529: 
g538: 
g54g: 
9550: 
0568: 
857%: 
g588: 
g590: 
d608: 
g618: 
629: 
8635: 
d640: 
g658: 
d668: 
g678: 
g68g: 
5698: 
4708: 
0718: 
5728: 
„730: 
6740: 
0756: 
0768: 
0778: 
9788: 
9798: 
g85d: 
9819: 
0829: 
8830: 
g840: 
9858: 
g869: 
0879: 
g88g: 
8890: 
gd: 
9915: 


ging 


089 
ggd 
9280 
a908 


9508 
ggd 
2060 
dad 


209 


0506 
908 


0099 
96Hd 


009 
9601 
B582 
ged4 
gag 
agg 
BBC 
OGZE 
9911 
g014 
8916 
2018 
OB 1A 
B 1D 


DAE 
ga20 
0823 
0825 
ga27 
g29 
092A 
g82C 
BĲ 2E 


0238 
9032 
9035 
9938 
gg3B 
Ba 
OD3E 
gg4g 
ga43 
gga6 
9548 
A24A 
Bg4D 
94E 
9858 
gg52 
9854 
g856 


ge59 
B85C 
D95E 
ge5F 
8061 
8863 
8865 
9867 
ga69 
9065 


78 
D8 
A9 
8D 
A9 
8D 
A9 
8D 
8D 
85 
A9 
85 
8D 
58 


A9 
8D 
AB 
Bl 
85 
C8 
Bl 
85 
A4 


A9 
8D 
BE 
20 
CA 
Dg 
A9 
8D 
BE 
A5 
30 
20 
CA 
Dg 
Fg 
A2 
A9 
8D 


2C 
19 
CA 
Dg 
56 
E6 
Ag 
Bl 
C9 
Dg 


38 
7E 
LA 
JE 
01 
83 
82 
DD 
gg 
DC 
Fá 


FF 
FE 
58 
DC 
DA 


DC 
DE 
DA 


de 
82 
dg 
70 


FA 
91 
82 
gg 
DE 
98 
74 


F6 
DE 
84 
39 
F7 


D5 
FB 


F3 
DC 
DC 
85 
DC 
77 
BÌ 


996D 4C ID 


GE b > 


5 


sbs 


5 


gg 


1 


REPEAT ROUTINE 
ORG _$2290 


TEMFORARY DATABUFFERS IN PAGE ZERO 


KEY * SAADA 
NOTEL * SOBDC 
NOTEE * SGBDD 
LENGTH * SDE 


INTERVAL TIMER 


CNTA * SlAF4 DISABLE TIMER IRQ 

CNID * SIAF? DISABLE TIMER IRQ, CLKÌKT 
CNTG * SIAFE ENABLE TIMER IRQ, CLK64T 
RDFLAG * SIAD5 B7 IS TIMER FLAG 

GOTO MONITOR 

RESET * SCID NEW I/O DEFINITION 


I/O DEFINITION 


PBD * $1A82 
PBDD * S1A83 
IRQ VECTOR 


IRL * SlA7E 
IRH * SlA7F 


START OF THE REPEAT PROGRAM 


REPEAT SEÏ DISABLE IRQ LINE 
CLD 
LDAIM IRQRE SET UP IRQ VECTOR 
STA IROL 
LDAIM IRQRE /256 
STA IROH 
LDAIM $41 PBB IS OUTPUT 
STA PBDD 


STA PBD TOGGLE SPEAKER OFF 

STAZ NOTEH SET NOTE POINTER 

LDAIM 500 

STAZ NOTEL SET NOTE POINTER 

STÂ CNTA RESET IRQ LINE, DISABLE TIMER IRO 
CLI ENABLE CPU IRQ 


FEICH LDAIM SFF SET TIMER ENABLE TIMER TRO 
STA CNTG 
LDYIM SOG FETCH NOTE 
LDAIY NOTEL 
STAZ KEY 
INY FETCH LENGIH 
LDAIY NOTEL 
STAZ LENGTH 
LDYZ KEY LOOKUP CONVERSION 


TONE LDAIM $08 TOGGLE SPEAKER ON 
STA _PaD 
LDXY DEL GET FREQUENCY 
TONEA JSR EQUALA DELAY 22 MICRO SEC 
DEX 
BNE TONEA LOOP TIME IS 27 MIKRO SEC*X 
LDAIM $81 TOGGLE SPEAKER OFF 
STA PBD 
IDXY DEL GET FREQUENCY AGAIN 
TONEB LDAZ LENGTH GET LENGTH 
BMI TONEC TIME OUT? 
JSR EQUALB FQUALIZE 17 MICRO SEC 
DEX 
BNE _TONEB LOOP TIME IS 27 MICRO SEC*X AGAIN 
BEQ TONE RETURN AFTER ONE PERIODE 
TONEC LDXIM $94 LOOP TIME = 4*CNTD*PRESET 
TONED LDAIM $30 PRESET = $30 
STA CNID DISABLE TIMER IRQ 


POLL BIT RDFLAG READ FLAG REGISTER, TIME OUT? 
BPL POLL IS TIMER FLAG STILL ZERO? 
DEX 
BNE TONED LOOP COUNTER ZERO? 

INC2 NOTEL ADJUST NOTE POINTER 
INCZ NOTEL 

LDYIM 580 

LDAIY NOTEL END OF NOTE BUFFER? 
CMPIM $77 EOF CHARACTER 

BNE FEICH IF NOF EOF, CONTINUE 
JMP RESET ELSE BACK TO MONITOR 
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9018: SUBROUTINES OF THE REPEAT PROGRAM 





6028: 
9030: 17/22 MICRO SEC SUBROUTINE 
8540: 
9950: 9970 EA EQUALA NOP 
0865: G971 4C 74 99 JMP _EQUALB 
0070: 2974 EA EQUALB NOP 
9089: 2975 4C 78 90 JMP EEND 
G49G: 0978 60 EEND RTS 
8108: 
B118: iAGG ORG SlAGG $ 
8120: t en Fat zi Ei er F3 5 PE 
0130: FREQUENCY LOOKUP TABLE pen g ne ä 
8149: , 
9150: lA4J 8E DEL = $8E ant Í2 
8169: lA41 86 = $86 
0170: 1A02 7E = SJE ty 
0188: 1A83 77 = $77 5 
0198: 1AQ4 70 = s70 
0200: 1AG5 6A = S6A ZE 
8218: 1AB6 64 - S64 
8220: 1A87 SE = $5E 
9239: 1AQ8 59 = 559 8 é 
9240: lA49 54 = $54 ig 
9250: lAUA 4E A: B 38 
9260: lAGB 4A = S4A 
8278: 1AGC 47 = 44 te 
5280: 1AQD 43 = “S43 $ 
0298: 1ABE 3E = S3E ë 
0300: lAgP 3 = $3C KE 4 
8318: Den 
8320: Eer 
0330: 1A30 ORG _S1A30 n 
9340: 2 EG 
9350: TIMER INTERRUPT PROGRAM 
9369: 2 2 
6379: 1A39 48 IRQRE PHA SAVE ACCU Ed 
Q389: 1A3l C6 DE DECZ LENGTH DECREMENT TIME dh ae, 
9399: 1A33 A9 FF LDAIM SFF TIMER OPFSET Is sPP C P 
8400: 1A35 8D FE lA STA CNIG START TIMER AGAIN n 
Q4ÌD: 1A38 68 PLA RESTORE ACCU ë & 
B420: 1A39 49 RPI 
8438: ei ir 
2449: END OF REPEAT se 
2 8 
! Ne 
SYMBOL TABLE 
CNIA lAF4 CNID IAF? CNIG IlAFE DEL JA88 ‚ ;- 
EEND @478 EQUALA 9078  EQUALB 4074 FETCH GOE | 


IROB 1A7F IROL 1A7E IRORE A39 KEY B3DA 
LENGTH SGDE NOTEH BDD NOTEL ADC PBDD 1483 
PBD A82 POLL J959 RDFLAG 1AD5 REPEAT 0959 
RESET 1CID TONE 2424 TONEA 0938 TONEB 9046 
TONEC 0952 TONED 8954 


SYMBOL TABLE 

REPEAT 0600 FETCH OPIE TONE 4039 TONEA 8938 
TONEB 8946 TONEC 5852 TONED 5954 POLL 9959 
EOUALA 9070 EQUALB 2974 EEND 2078 KEY OÜDA 
NOTEL G@DC NOTEH @@DD LENGTH G0DE DEL 1A8@ 
IRORE 1A39 IRL lAJE IROH lA7F PAD 1A82 
PBDD 1A83 RDFLAG 1AD5 CNTA lAF4 CNID JAF? 
CNIG IAFE RESET 1CID 
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Nogmaals BRK 


Wat er nog aan ontBRak 


De instruktie BRK (Junior Computer 1, pagina 124) is de software-versie 
van een NMI-interrupt, namelijk onvoorwaardelijk. Na de BRK gaat het 
programma verder vanaf een plaats in het geheugen, aangewezen door de 
[RO-sprongvektor, gespecificeerd in 1A7E en 1A7F. Allemaal "ouwe 
koek” van hoofdstuk 3. Nu de aanvullingen. 


1. Terugkeeradres. Bij een IRQ (| =d) en een NMI gaan achtereenvolgens 
de stapel op: 
D PCH @ PCL ® P-register, 
waarbij PC de inhoud is van de programmateller. Deze wijst op het 
adres met de opcode van de volgende instruktie. Na BRK gaan achter- 
eenvolgens de stapel op: 
D PCH @ PCL+2 ® P-register 
Na een RTI (bijvoorbeeld na [GO], als de HRO-sprongvektor wijst op 
1COD, de SAVE-ingang @ van de monitor) gaat het programma dus 
niet verder op het adres, aangewezen door (PCH, PCL), en ook niet 
altijd verder op het adres, aangewezen door (PCH, PCL)+2. Zodra 
namelijk PCL+2 groter is dan FF (pagina-overschrijding) geldt: PCL+2 
ziet de 6502 als: PCL+2-—FF. Voorbeelden: 
(LRO,NMI) (BRK) 
(PCH, PCL) (PCH, PCL+2) 


d2dd 0202 
0201 0203 
B2g2 d2d4 
O2FC D2FE 
d2FD Q2FF 
D2FE d20® (niet: 9300) 
d2FF G201 (niet: 6301) 


Is het nodig om na de BRK-routine, dus na de afsluitende RTI (bijvoor- 
beeld[GO]als de BRK naar de monitor voert) verder te gaan op de 
plaats, volgend op die met de BRK, dan moet de inhoud van de stapel 
worden gewijzigd (zie punt 3). 
N.B. Een soortgelijke pagina-beperking geldt ook voor de instruktie 
JMP - IND (boek 1, p. 120 ff). 


2. Vlaggen. Bij een toegestane IRQ en een NMI verandert de l-vlag van @ 


(enable) in 1 (disable); de B-vlag wordt B. Een BRK werkt onafhanke- 
lijk van de l-vlag, dus | = X (dont care) voor en na de BRK. Wél wordt 
na de BRK de B-vlag 1. De toestand van de B-vlag (bit b4 van het 
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P-register) bepaalt dus of het om een hardware-interrupt ging of om een 
BRK. Die toestand kan als volgt in het programma worden onderzocht: 


PLA _ P-reg. > A E 
PHA A — stack hf 
(P-reg. in A) | 


AND IMM 10 pik de B-vlag (bit b4) eruit 
BNE naar BRK routine 


Y 
(ga door met IRO-routine) | | | 


3. Het juiste terugkeeradres. Wil men na een BRK-routine (afgesloten met 

een RTI) wél op de volgende plaats met het hoofdprogramma verder. 
gaan, dan moet PC worden gekorrigeerd (zie punt 1). Het laatste deel 
van de BRK-routine ziet er dan zó uit: 


PLA P-reg. > A 

STA — MEM A > geh. pl. MEM 

PLA PCL+2 > A | ; 
SEC C=1:C =d = borrow | k 
SBC IMM @2 AA -—-2 | 
PHA korrekte PCL — stack 

LDA — MEM P-reg. > A 

PHA P-reg. terug naar stack 

RTI | terug naar hoofdprogramma 


N.B. 1. Wil men binnen een IRQ-routine de HRQ-mogelijkheid behouden 
(”IRO-nesting’’), dan moet de IRQ-routine beginnen met de instruktie 
CLI: maak de |-vlag nul. 

N.B. 2. Na afloop van een IRO-routine is de l-vlag weer nál (interrupt 
mogelijk). lmmers, de l-vlag is als onderdeel van het P-register bewaard op 
de stapel. En alleen | = @ zorgt voor de afwikkeling van een IRQ-routine. 
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